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Preface 


This book is intended to serve as a source and a reference for the assembly 
language programmer. It contains an overview of assembly language program- 
ming for a particular microprocessor and a collection of useful routines. In writing 
the routines, we have used a standard format, documentation package, and 
parameter passing techniques. We have followed the rules of the original 
manufacturer's assembler and have described the purpose, procedure, param- 
eters, results, execution time, and memory usage of each routine. 

This overview of assembly language programming provides a summary for 
those who do not have the time or need for a complete textbook such as is pro- 
vided already in the Assembly Language Programming series. Chapter 1 contains 
an introduction to assembly language programming for the particular processor 
and a brief summary of the major features that differentiate this processor from 
other microprocessors and minicomputers. Chapter 2 describes how to imple- 
ment instructions and addressing modes that are not explicitly available. Chapter 
3 discusses common errors that the programmer is likely to encounter. 

The collection of routines emphasizes common tasks that occur in many 
applications such as code conversion, array manipulation, arithmetic, bit 
manipulation, shifting functions, string manipulation, summation, sorting, and 
searching. We have also provided examples of I/O routines, interrupt service 
routines, and initialization routines for common family chips such as parallel 
interfaces, serial interfaces, and timers. You should be able to use these routines 
as subroutines in actual applications and as guidelines for more complex pro- 
grams. 

We have aimed this book at the person who wants to use assembly language 
immediately, rather than just learn about it. The reader could be 


» An engineer, technician, or programmer who must write assembly language 
programs for use in a design project. 


* À microcomputer user who wants to write an I/O driver, a diagnostic pro- 
gram, or a utility or systems program in assembly language. 
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- A programmer or engineer with experience in assembly language who needs 
a quick review of techniques for a particular microprocessor. 


- A system designer or programmer who needs a specific routine or technique 
for immediate use. 

- A programmer who works in high-level languages but who must debug or 
optimize programs at the assembly level or must link a program written in a high- 
level language to one written in assembly language. 


- A system designer or maintenance programmer who must quickly under- 
stand how specific assembly language programs operate. 

- A microcomputer owner who wants to understand how the operating system 
works on a particular computer, or who wants to gain complete access to the com- 
puter's facilities. 

* A student, hobbyist, or teacher who wants to see some examples of working 
assembly language programs. 


This book can also serve as supplementary material for students of the Assem- 
bly Language Programming series. 

This book should save the reader time and effort. There is no need to write, 
debug, test, or optimize standard routines, nor should the reader have to search 
through material with which he or she is thoroughly familiar. The reader should 
· be able to obtain the specific information, routine, or technique that he or she 
needs with a minimum amount of effort. We have organized and indexed this 
book for rapid use and reference. 

Obviously, a book with such an aim demands response from its readers. We 
have, of course, tested all the programs thoroughly and documented them ` 
carefully. If you find any errors, please inform the publisher. If you have sugges- 
tions for additional topics, routines, programming hints, index entries, and so 
forth, please tell us about them. We have drawn on our programming experience 
to develop this book, but we need your help to improve it. We would greatly 
appreciate your comments, criticisms, and suggestions. 


NOMENCLATURE 


We have used the following nomenclature in this book to describe the 
architecture of the 6502 processor, to specify operands, and to represent general 
values of numbers and addresses. 


6502 Architecture 


Byte-length registers include 
A (accumulator) 
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F (flags, same as P) 

P (status register) 

S or SP (stack pointer) 
X (index register X) 
Y (index register Y) 


Of these, the general purpose user registers are A, X, and Y. The stack pointer 
always contains the address of the next available stack location on page 1 of 
memory (addresses 0100,, through 01FF,,). The P (status) ог F (flag) register 
consists of a set of bits with independent functions and meanings, organized as 
shown in the following diagram: 


4 3 2 1 O0 -———Bit Number 


осарсвна Processor Status Register P 


Carry 

Zero 

Interrupt disable 
Decimal mode 
Break command 
Not used (Logic 1) 
Overflow 

Negative (Sign) 


Word-length registers include 
PC (program counter) 


Note: Pairs of memory locations on page 0 may also be used as word-length 
registers to hold indirect addresses. The lower address holds the less significant 
byte and the higher address holds the more significant byte. Since the 6502 pro- 
vides automatic wraparound, addresses OOFF,, and 0000,, form a rarely used pair. 
Flags include 

Break (B) 

Carry (C) 

Decimal Mode (D) 

Interrupt Disable (I) 

Negative or Sign (N) 

Overflow (V) 

Zero (Z) 


These flags are arranged in the P or F register as shown previously. 
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6502 Assembler 


Delimiters include 


space `: 


9 


6 


After a label or an operation code 


Between operands in the operand 
(address) field 


Before a comment 
After a label (optional) 
Around an indirect address 


Pseudo-Operations include 


BLOCK 
BYTE 
.DBYTE 
END 


.EQU 
.TEXT 


Reserve bytes of memory; reserve the specified number of bytes of 
memory for temporary storage 

Form byte-length data; place the specified 8-bit data in the next 
available memory locations 

Form double-byte (word) length data with more significant byte 
first; place the specified 16-bit data in the next available memory 
locations with more significant byte first 

End of program 

Equate; define the attached label 


Form string of ASCII characters; place the specified ASCII charac- 
ters in the next available memory locations 

Form double-byte (word) length data with less significant byte first; 
place the specified 16-bit data in the next available memory loca- 
tions with less significant byte first 

Set origin; assign the object code generated from the subsequent as- 
sembly language statements to memory addresses starting with the 
one specified 


Equate; define the attached label 


Designations include 

Number systems: 
$ (prefix) or H (suffix) Hexadecimal 
@ (prefix) or Q (suffix) Octal 
% (prefix) or B (suffix) Binary 


The default mode is decimal. 


Others: 


' (in front of character) ASCII 


* 


Current value of location 
(program) counter 
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© ° or“ ” (around 


a string of characters) - 


4 
X 


‚У 


ASCII string 

Immediate addressing 
Indexed addressing with index 
register X 


Indexed addressing with index 
register Y 


The default addressing mode is absolute (direct) addressing. 


General Nomenclature 


ADDR 
ADDRH 
ADDRL 
BASE 
BASEH 
BASEL 
DEST 


NTIMES 
NTIMH 
NTIMHC 
NTIML 
NTIMLC 
OPER 
OPERI 
OPER2 
PGZRO 


PGZRO+ 1 


POINTER 
POINTH > 
POINTL 
RESLT 


a 16-bit address in data memory 
the more significant byte of ADDR 
the less significant byte of ADDR 
a constant 16-bit address 

the more significant byte of BASE 
the less signficant byte of BASE 


a 16-bit address in program memory, the destination for 
a jump or branch instruction 


an 8-bit data item 

an 8-bit data item 

an 8-bit data item 

an 8-bit data item 

an 8-bit data item 

a 16-bit address in data memory 

a 16-bit address in data memory 

a 16-bit address in data memory 

an address on page 0 of data memory 


the address one larger than PGZRO (with no carry to 
the more significant byte) 


a 16-bit address in data memory 

the more significant byte of POINTER 
the less significant byte of POINTER 
a 16-bit address in data memory 
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VALI16 
VALI6L 
VAL16M 
VALUE 
ZCOUNT 


a 16-bit data item 

the less significant byte of VAL16 
the more significant byte of VAL16 
ап 8-bit data item ` 

a 16-bit address in data memory 


Chapter 1 General Programming 
Methods 


This chapter describes general methods for writing assembly language pro- 
grams for the 6502 and related microprocessors. It presents techniques for per- 
forming the following operations: 


Loading and saving registers 
Storing data in memory 
Arithmetic and logical functions 
Bit manipulation 

Bit testing 

* Testing for specific values 
Numerical comparisons 

Looping (repeating sequences of operations) 
Array processing and manipulation 
* Table lookup 

* Character code manipulation 

Code conversion 
Multiple-precision arithmetic 
Multiplication and division 

* List processing 

Processing of data structures. 


Special sections discuss passing parameters to subroutines, writing I/O drivers 
and interrupt service routines, and making programs run faster or use less 
memory. 

The operations described are required in applications such as instrumentation, 
test equipment, computer peripherals, communications equipment, industrial 
control, process control, aerospace and military systems, business equipment, 
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and consumer products. Microcomputer users will make use of these operations 
in writing I/O drivers, utility programs, diagnostics, and systems software, and in 
understanding, debugging, or improving programs written in high-level 
languages. This chapter provides a brief guide to 6502 assembly language pro- 
gramming for those who have an immediate application in mind. 


QUICK SUMMARY FOR 
EXPERIENCED PROGRAMMERS 


For those who are familiar with assembly language programming on other pro- 
cessors, we provide here a brief review of the peculiarities of the 6502. Being 
aware of these unusual features can save you a great deal of time and trouble. 


1. The Carry flag acts as an inverted borrow in subtraction. A Subtract (SBC) 
or Compare (CMP, CPX, or CPY) instruction clears the Carry if the operation 
requires a borrow and sets it if it does not. The SBC instruction accounts for this 
inversion by subtracting 1 — Carry from the usual difference. Thus, the Carry has 
the opposite meaning after subtraction (or comparison) on the 6502 than it has 
on most other computers. 


2. The only Addition and Subtraction instructions are ADC (Add with Carry) 
and SBC (Subtract with Carry). If you wish to exclude the Carry flag, you must 
clear it before addition or set it before subtraction. That is, you can simulate a 
normal Add instruction with 

CLC 

ADC MEMORY 
and a normal Subtract instruction with 

SEC 

SBC MEMORY 

3. There are no 16-bit registers and no operations that act on 16-bit quantities. 
The lack of 16-bit registers is commonly overcome by using pointers stored on 
page 0 and the indirect indexed (postindexed) addressing mode. However, both 
initializing and changing those pointers require sequences of 8-bit operations. 


4. There is no true indirect addressing except with JMP. For many other 
instructions, however, you can simulate indirect addressing by clearing index 
register Y and using indirect indexed addressing, or by clearing index register X 
and using indexed indirect addressing. Both of these modes are limited to indirect 
addresses stored on page 0. 


5. The stack is always on page 1 of memory. The stack pointer contains the 
less significant byte of the next empty address. Thus, the stack is limited to 256 
bytes of memory. 
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6. The JSR (Jump to Subroutine) instruction saves the address of its own 
third byte in the stack, that is, JSR saves the return address minus 1. RTS 
(Return from Subroutine) loads the program counter from the top of the stack 
and then adds 1 to it. You must remember this offset of 1 in debugging and using 
JSR or RTS for purposes other than ordinary calls and returns. 


7. The Decimal Mode (D) flag is used to perform decimal arithmetic. When 
this flag is set, all additions and subtractions produce decimal results. Increments 
and decrements, however, produce binary results regardless of the mode. The 
problem with this approach is that you may not be sure of the initial or current 
state of the D flag (the processor does not initialize it on Reset). A simple way to 
avoid problems in programs that use Addition or Subtraction instructions is to 
save the original D flag in the stack, assign D the appropriate value, and restore 
the original value before exiting. Interrupt service routines, in particular, should 
always either set or clear D before executing any addition or subtraction instruc- 
tions. The PHP (Store Status Register in Stack) and PLP (Load Status Register 
from Stack) instructions can be used to save and restore the D flag, if necessary. 
The overall system startup routine must initialize D (usually to 0, indicating bin- 
ary mode, with CLD). Most 6502-based operating systems assume the binary 
mode as a default and always return to that mode as soon as possible. 

A minor quirk of the 6502's decimal mode is that the Zero and Negative flags 
are no longer universally valid. These flags reflect only the binary result, not the 
decimal result; only the Carry flag always reflects the decimal result. Thus, for 
example, subtracting 80,, from 50,, in the decimal mode sets the Negative flag 
(since the binary result 15 0 ), even though the decimal result (70,,) has a most 
significant bit of 0. Similarly, adding 50,, and 50,, in the decimal mode clears the 
Zero flag (since the binary result is A0,,), even though the decimal result is zero. 
Note that adding 50,, and 50,, in the decimal mode does set the Carry. Thus when 
working in the decimal mode, the programmer should use only branches that 
depend on the Carry flag or operations that do not depend on the mode at all 
(such as subtractions or comparisons followed by branches on the Zero flag). 


8. Ordinary Load (or Pull from the Stack) and Transfer instructions (except 
TXS) affect the Negative (Sign) and Zero flags. This is not the case with the 8080, 
8085, or Z-80 microprocessors. Storing data in memory does not affect any flags. 


9. INC and DEC cannot be applied to the accumulator. To increment A, use 
CLC 
ADC #1 ; INCREMENT ACCUMULATOR BY 1 


To decrement A, use 


SEC 
SBC #1 ;DECREMENT ACCUMULATOR BY 1 
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10. The index registers are only 8 bits long. This creates obvious problems in 
handling arrays or areas of memory that are longer than 256 bytes. To overcome 
this, use the indirect indexed (postindexed) addressing mode. This mode allows 
you to store the starting address of the array in two memory locations on page 0. 
Whenever the program completes a 256-byte section, it must add 1 to the more 
significant byte of the indirect address before proceeding to the next section. The 
processor knows that it has completed a section when index register Y returns to 
0. A typical sequence is 


INY ; PROCEED TO NEXT BYTE 
BNE LOOP ;UNLESS A PAGE IS DONE 
INC INDR+1 ;IF ONE IS, GO ON TO THE NEXT PAGE 


Memory location INDR+1 (on page 0) contains the most significant byte of the 
indirect address. 


11. 16-bit counters may be maintained in two memory locations. Counting up 
is much easier than counting down since you can use the sequence 


INC COUNTL ;COUNT UP LESS SIGNIFICANT BYTE 
BNE LOOP 

INC COUNTH ;CARRYING TO MSB IF NECESSARY 
JMP LOOP 


COUNTL contains the less significant byte of a 16-bit counter and COUNTH the 
more significant byte. Note that we check the Zero flag rather than the Carry flag 
since, as on most computers, Increment and Decrement instructions do not 
affect Carry. 


12. The BIT instruction (logical AND with no result saved) has several 
unusual features. In the first place, it allows only direct addressing (absolute and 
zero page). If you want to test bit 3 of memory location ADDR, you must use the 
sequence 

LDA %%00001000 

ВІТ ADDR 
BIT also loads the Negative and Overflow flags with the contents of bits 7 and 6 of 
the memory location, respectively, regardless of the value in the accumulator. 
Thus, you can perform the following operations without loading the accumulator 
at all. Branch to DEST if bit 7 of ADDR is 1 


BIT ADDR 
BMI DEST 


Branch to DEST if bit 6 of ADDR is 0 


BIT ADDR 
BVC DEST 


Of course, you should document the special use of the Overflow flag for later 
reference. 
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13. The processor lacks some common instructions that are available on the 
6800, 6809, and similar processors. Most of the missing instructions are easy to 
simulate, although the documentation can become awkward. In particular, we 
should mention Clear (use load immediate with 0 instead), Complement (use 
logical EXCLUSIVE OR with the all 1s byte instead), and the previously men- 
tioned Add (without carry) and Subtract (without borrow). There is also no direct 
way to load or store the stack pointer (this can be done through index register X), 
load or store the status register (this can be done through the stack), or perform 
operations between registers (one must be stored in memory). Other missing 
instructions include Unconditional Relative Branch (use jump or assign a value 
to a flag and branch on it having that value), Increment and Decrement 
Accumulator (use the Addition and Subtraction instructions), Arithmetic Shift 
(copy bit 7 into Carry and rotate), and Test zero or minus (use a comparison with 
0 or an increment, decrement sequence). Weller! describes the definition of 
macros to replace the missing instructions. 


14. The 6502 uses the following common conventions: 

- 16-bit addresses are stored with the less significant byte first. The order of 
the bytes is the same as in the 8080, Z-80, and 8085 microprocessors, but 
opposite the order used in 6800 and 6809. 

* The stack pointer contains the address (on page 1) of the next available loca- 
tion. This convention is also used in the 6800, but the obvious alternative (last 
occupied location) is used in the 8080, 8085, Z-80, and 6809 microprocessors. 
Instructions store data in the stack using postdecrementing (they subtract 1 from 
the stack pointer after storing each byte) and load data from the stack using 
preincrementing (they add 1 to the stack pointer before loading each byte). 


* The I (Interrupt) flag acts as a disable. Setting the flag (with SEI) disables the 
maskable interrupt and clearing the flag (with CLI) enables the maskable inter- 
rupt. This convention is the same as in the 6800 and 6809 but the opposite of that 
used in the 8080, 8085, and Z-80. 


THE REGISTER SET 


The 6502 assembly language programmer's work is complicated considerably 
by the processor's limited register set. In particular, there are no address-length 
(16-bit) user registers. Thus, variable addresses must normally be stored in pairs 
of memory locations on page 0 and accessed indirectly using either preindexing 
(indexed indirect addressing) or postindexing (indirect indexed addressing). The 
lack of 16-bit registers also complicates the handling of arrays or blocks that 
occupy more than 256 bytes of memory. 
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If we consider memory locations on page 0 as extensions of the register set, we 
may characterize the registers as follows: 


* The accumulator is the center of data processing and is used as a source and 
destination by most arithmetic, logical, and other data processing instructions. 


* Index register X is the primary index register for non-indirect uses. It is the 
only register that normally has a zero page indexed mode (except for the LDX 
STX instructions), and it is the only register that can be used for indexing with 
single-operand instructions such as shifts, increment, and decrement. It is also 
the only register that can be used for preindexing, although that mode is not com- 
mon. Finally, it is the only register that can be used to load or store the stack 
pointer. | 


e Index register Y is the primary index register for indirect uses, since it is the 
only register that can be used for postindexing. 


- Memory locations on page 0 are the only locations that can be accessed with 
the zero page (direct), zero page indexed, preindexed, and postindexed address- 
ing modes. 


Tables 1-1 through 1-7 contain lists of instructions having particular features. 
Table 1-1 lists instructions that apply only to particular registers and Table 1-2 
lists instructions that can be applied directly to memory locations. Tables 1-3 
through 1-7 list instructions that allow particular addressing modes: zero page 
(Table 1-3), absolute (Table 1-4), zero page indexed (Table 1-5), absolute 
indexed (Table 1-6), and preindexing and postindexing (Table 1-7). 


We may describe the special features of particular registers as follows: 


* Accumulator. Source and destination for all arithmetic and logical instruc- 
tions except CPX, CPY, DEC, and INC. Only register that can be shifted with a 
single instruction. Only register that can be loaded or stored using preindexed or 
postindexed addressing. 


* Index register X. Can be incremented using ПУХ or decremented using 
DEX. Only register that can be used as an index in preindexing. Only register that 
can be used to load or store the stack pointer. 


* Index register Y. Can be incremented using INY or decremented using 
DEY. Only register that can be used as an index in postindexing. 


- Memory locations on page 0. Only memory locations that can hold indirect 
addresses for use in postindexing or preindexing. Only memory locations that can 
be accessed using zero page or zero page indexed addressing. 


* Status register. Can only be stored in the stack using PHP or loaded from 
the stack using PLP. 
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Table 1-1: Registers and Applicable Instructions 


эе EN 


A 


P 


S 
X 


ADC, AND, ASL, BIT, CMP, EOR, LDA, LSR, ORA, PHA, 
PLA, ROL, ROR, SBC, STA, TAX, TAY, TXA, TYA 


(processor status) PHP, PLP (CLC, CLD, CLV, SEC, and SED affect 
particular flags) 


(stack pointer) JSR, PHA, PHP, PLA, PLP, RTS, TSX, TXS 
CPX, DEX, INX, LDX, STX, TAX, TSX, TXA, TXS 
CPY, DEY, INY, LDY, STY, TAY, TYA 


Table 1-2: Instructions That Can Be Applied Directly to Memory Locations 


Arithmetic shift left . 
Bit test (test bits 6 and 7) 
Decrement by 1 
Increment by 1 

Logical shift right 
Rotate left 

Rotate right 


Table 1-3: Instructions That Allow Zero Page Addressing 


Add with Carry 

Logical AND 

Arithmetic shift left 

Bit test 

Compare memory and accumulator 
Compare memory and index register X 
Compare memory and index register Y 
Decrement by 1 

Logical EXCLUSIVE OR 
Increment by 1 

Load accumulator 

Load index register X 

Load index register Y 

Logical shift right 

Logical OR 

Rotate left 

Rotate right 

Subtract with Carry 

Store accumulator 

Store index register X 

Store index register Y 
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Table 1-4: Instructions That Allow Absolute (Direct) Addressing 


ADC Add with Carry 
Logical AND 
Arithmetic shift left 
Logical bit test 
Compare memory and accumulator 
Compare memory and index register X 
Compare memory and index register Y 
Decrement by 1 

Logical EXCLUSIVE OR 

Increment by 1 

Jump unconditional 

Jump to subroutine 

Load accumulator 

Load index register X 

Load index register Y 

Logical shift right 

Logical OR 

Rotate left 

Rotate right 

Subtract with Carry 

Store accumulator 

Store index register X 

Store index register Y 


Table 1-5: Instructions That Allow Zero Page Indexed Addressing 


Add with Carry 

Logical AND 

Arithmetic shift left 
Compare memory and accumulator 
Decrement by 1 

Logical EXCLUSIVE OR 
Increment by 1 

Load accumulator 

Load index register Y 
Logical shift right 
Logical OR 

Rotate left 

Rotate right 

Subtract with Carry 
Store accumulator 

Store index register Y 


>< 
ы 
o 
a 
"s 
© 
ex 
ж 
Ф 
© 
Е 
км 


Load index register X 
Store index register X 


Index Register Y 


CHAPTER 1: GENERAL PROGRAMMING METHODS 9 


Table 1-6: Instructions That Allow Absolute Indexed Addressing 


Add with Carry 

Logical AND 

Arithmetic shift left 
Compare memory and accumulator 
Decrement by 1 

Logical EXCLUSIVE OR 
Increment by 1 

Load accumulator 

Load index register Y 
Logical shift right 

Logical OR 

Rotate left 

Rotate right 

Subtract with Carry 
Store accumulator 


Index Register X 


Add with Carry 

Logical AND 

Compare memory and accumulator 
Logical EXCLUSIVE OR 

Load accumulator 

Load index register X 

Logical OR 

Subtract with Carry 

Store accumulator 


Index Register Y 


Table 1-7: Instructions That Allow Postindexing and Preindexing 


Add with Carry 
Logical AND 
Compare memory and accumulator 


Logical EXCLUSIVE OR 
Load accumulator 
Logical OR 

Subtract with Carry 
Store accumulator 
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* Stack pointer. Always refers to an address on page 1. Can only be loaded 
from or stored in index register X using TXS and TSX, respectively. 


Note the following: 


- Almost all data processing involves the accumulator, since it provides one 
operand for arithmetic and logical instructions and the destination for the result. 


* Only a limited number of instructions operate directly on the index registers 
or on memory locations. An index register can be incremented by 1, decre- 
mented by 1, or compared to a constant or to the contents of an absolute address. 
The data in a memory location can be incremented by 1, decremented by 1, 
shifted left or right, or rotated left or right. 


* The available set of addressing methods varies greatly from instruction to 
instruction. Note in particular the limited sets available with the instructions BIT, 
CPX, CPY, LDX, LDY, STX, and STY. 


Register Transfers 


Only a limited number of direct transfers between registers are provided. A 
single instruction can transfer data from an index register to the accumulator, 
from the accumulator to an index register, from the stack pointer to index 
register X, or from index register X to the stack pointer. The mnemonics for the 
transfer instructions have the form TSD, where “5” is the source register and 
“D” is the destination register as in the convention proposed in IEEE Standard 
694.? The status (P) register may only be transferred to or from the stack using 
PHP or PLP. 


LOADING REGISTERS FROM MEMORY 


The 6502 microprocessor offers many methods for loading registers from 
memory. The following addressing modes are available: zero page (direct), 
absolute (direct), immediate zero page indexed, absolute indexed, postindexed, 
and preindexed. Osborne? describes all these modes in Chapter 6 of An Introduc- 
tion to Microcomputers: Volume 1 — Basic Concepts. 


Direct Loading of Registers 


The accumulator, index register X, and index register Y can be loaded from 
memory using direct addressing. A special zero page mode loads registers from 
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addresses on page 0 more rapidly than from addresses on other pages. Ter- | 
minology for 6502 refers to zero page direct addressing as zero page addressing and 
to the more general direct addressing as absolute addressing. 


Examples 
1. LDA $40 


This instruction loads the accumulator from memory location 0040,,. The 
special zero page addressing mode requires less time and memory than the more 
general absolute (direct) addressing. | 


2. LDX $C000 


This instruction loads index register X from memory location C000,.. It uses 
absolute (direct) addressing. 


Immediate Loading of Registers 


This method can be used to load the accumulator, index register X, or index 
register Y with a specific value. 
Examples 

1. ГОУ +6 

This instruction loads index register Y with the number 6. The 6 is ап 8-bit 
data item, not a 16-bit address; do not confuse the number 6 with the address 
0006,.. 


2. LDA +$ЕЗ 
This instruction loads the accumulator with the number ЕЗ 4. 


Indexed Loading of Registers 


The instructions LDA, LDX, and LDY can be used in the indexed mode. The 
limitations are that index register X cannot be loaded using X as an index; 
similarly, index register Y cannot be loaded using Y as an index. As with direct 
addressing, a special zero page mode is provided. Note, however, that the 
accumulator cannot be loaded in the zero page mode using Y as an index. 


Examples 

1. LDA 80340,Х 

This instruction loads the accumulator from the address obtained by indexing 
with index register X from the base address 0340,,; that is, the effective address is 


0340,,+(X). This is the typical indexing described іп An Introduction to 
Microcomputers: Volume 1 — Basic Concepts.‘ 
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2. LDX  $40,Y 


This instruction loads index register X from the address obtained by indexing 
with register Y from Ше base address 0040,,. Here the special zero page indexed 
mode saves time and memory. | 


Postindexed Loading of Registers 


The instruction LDA can be used in the postindexed mode, in which the base 
address is taken from two memory locations on page 0. Otherwise, this mode is 
the same as regular indexing. 


Example | 

ГОА ($40),Y . 

This instruction loads the accumulator from the address obtained by indexing 
with index register Y from the base address in memory locations 0040,, and 
0041. This mode is restricted to page 0 and index register Y. It also assumes that 
the indirect address is stored with its less significant byte first (at the lower 
address) in the usual 6502 manner. 


Preindexed Loading of Registers 


The instruction LDA can be used in the preindexed mode, in which the 
indexed address is itself used indirectly. This mode is restricted to page 0 and 
index register X. Note that it also assumes the existence of a table of 2-byte 
indirect addresses, so that only even values in X make sense. 


Example 

ГОА (840,Х) 

This instruction loads the accumulator from the indirect address obtained by 
indexing with register X from Ше base address 0040,,. The indirect address is in 
the two bytes of memory starting at 0040,,+ (X). This mode is uncommon; one 
of its uses is to select from a table of device addresses for input/output. 


Stack Loading of Registers 


The instruction PLA loads the accumulator from the top of the stack and 
subtracts 1 from the stack pointer. The instruction PLP is similar, except that it 
loads the status (P) register. This is the only way to load the status register with a 
specific value. The index registers cannot be loaded directly from the stack, but 
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they can be loaded via the accumulator. The required sequences are 
(for index register X) 


PLA ;TOP OF STACK TO A 
TAX ;AND ON TO X 

(for index register Y) 

PLA ;TOP OF STACK TO A 
TAY ;AND ON TO Y 


The stack has the following special features: 


* [tis always located on page 1 of memory. The stack pointer contains only the 
less significant byte of the next available address. 


* Data is stored in the stack using postdecrementing — the instructions decre- 
ment the stack pointer by 1 after storing each byte. Data is loaded from the stack 
using preincrementing — the instructions increment the stack pointer by 1 before 
loading each byte. 


* As is typical with microprocessors, there are no overflow or underflow 
indicators. 


STORING REGISTERS 
IN MEMORY 


The same approaches that we used to load registers from memory can also be 
used to store registers in memory. The only differences between loading and stor- 
ing registers are 


· Store instructions do not allow immediate addressing. There is no way to 
directly store a number in memory. Instead, it must be transferred through a 
register. 


° STX and STY allow only zero page indexed addressing. Neither allows 
absolute indexed addressing. 


* AS you might expect, the order of operations in storing index registers in the 
stack is the opposite of that used in loading them from the stack. The sequences 
are 


(for index register X) 


TXA ;MOVE X TO A 

PHA ;AND THEN TO TOP OF STACK 
(for index register Y) 

TYA ;MOVE Y TO A 


PHA ;AND THEN TO TOP OF STACK 
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Other storage operations operate in exactly the same manner as described in 
the discussion of loading registers. 
Examples 

1. STA $50 

This instruction stores the accumulator in memory location 0050,.. The special 
zero page mode is both shorter and faster than the absolute mode, since the more 
significant byte of the address is assumed to be 0. 

2. STX $17E8 

This instruction stores index register X in memory location 17Е8,,. It uses the 
absolute addressing mode with a full 16-bit address. 

3. STA $A000,Y 


This instruction stores the accumulator in the effective address obtained by 
adding index register Y to the base address A000,,. The effective address is 
А000 + (Y). 


4. STA ($50), Y 


This instruction stores the accumulator in the effective address obtained by 
adding index register Y to the base address in memory locations 0050,, and 
0051,,. The instruction obtains the base address indirectly. 


5. STA (843,Х) 


This instruction stores the accumulator in the effective address obtained 
indirectly by adding index register X to the base 0043,,. The indirect address is in 
the two bytes of memory starting at 0043 + (X). 


STORING VALUES IN RAM 


The normal way to initialize RAM locations is through the accumulator, one 
byte at a time. The programmer can also use index registers X and Y for this pur- 
pose. 


Examples 
1. Store an 8-bit item (VALUE) in address ADDR. 
LDA #VALUE СЕТ THE VALUE 
STA ADDR ¿INITIALIZE LOCATION ADDR 


We could use either LDX, STX or LDY, STY instead of the LDA, STA 
sequence. Note that the 6502 treats all values the same; there is no special 
CLEAR instruction for generating Os. 
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2. Store а 16-bit item (POINTER) in addresses ADDR and ADDR +1 (MSB 
in ADDR +1). 

We assume that POINTER consists of POINTH (more significant byte) and 
POINTL (less significant byte). 


LDA #POINTL ;GET LSB 

STA ADDR INITIALIZE LOCATION ADDR 
LDA #POINTH ; GET MSB 

STA ADDR+1  sINITIALIZE LOCATION ADDR+1 


This method allows us to initialize indirect addresses on page 0 for later use with 
postindexing and preindexing. 


ARITHMETIC AND LOGICAL 
OPERATIONS 


Most arithmetic and logical operations (addition, subtraction, AND, OR, and 
EXCLUSIVE OR) can be performed only between the accumulator and an 8-bit 
byte in memory. The result replaces the operand in the accumulator. Arithmetic 
and logical operations may use immediate, zero page (direct), absolute (direct), 
indexed, zero page indexed, indexed indirect, or indirect indexed addressing. 
Examples 

1. Add memory location 0040,, to the accumulator with carry. 

ADC $40 
This instruction adds the contents of memory location 0040 and the contents of 
the Carry flag to the accumulator. 

2. Logically OR the accumulator with the contents of an indexed address 
obtained using index register X and the base 17E0,.. 


ORA 8617Е0,Х 
The effective address is 17Е0 „+ (X). 


3. Logically AND the accumulator with the contents of memory location 
B470,.. 


AND $B470 
Note the following special features of the 6502's arithmetic and logical instruc- 
tions: 

* The only addition instruction is ADC (Add with Carry). To exclude the 
Carty, you must clear it explicitly using the sequence 


CLC | ;MAKE CARRY ZERO 
ADC $40 ;ADD WITHOUT CARRY 
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* The only subtraction instruction is SBC (Subtract with Borrow). This 
instruction subtracts a memory location and the complemented Carry flag from 
the accumulator. SBC produces 


(A) = (A) — (M) - (1- CARRY) 


where M is the contents of the effective address. To exclude the Carry, you must 
set it explicitly using the sequence 


SEC ;MAKE INVERTED BORROW ONE 
SBC $40 : SUBTRACT WITHOUT CARRY 


Note that you must set the Carry flag before a subtraction, but clear it before an 
addition. 


· Comparison instructions perform subtractions without changing registers 
(except for the flags in the status register). Here we have not only CMP (Com- 
pare Memory with Accumulator), but also CPX (Compare Memory with Index 
Register X) and CPY (Compare Memory with Index Register Y). Note the 
differences between CMP and SBC; CMP does not include the Carry in the 
subtraction, change the accumulator, or affect the Overflow flag. 


* There is no explicit Complement instruction. However, you can comple- 
ment Ше accumulator by EXCLUSIVE ORing it with a byte which contains all 1s 
(11111111, ог FF,,). Remember, the EXCLUSIVE OR of two bits is 1 if they are 
different and 0 if they are the same. Thus, EXCLUSIVE ORing with a 1 will pro- 
duce a result of 0 if the other bit is 1 and 1 if the other bit is 0, the same as a logical 
complement (NOT instruction). 


Thus we have the instruction 


EOR $$11111111  ;COMPLEMENT ACCUMULATOR 


* The BIT instruction performs a logical AND but does not return a result to 
the accumulator. It affects only the flags. You should note that this instruction 
allows only direct addressing (zero page or absolute); it does not allow immediate 
or indexed addressing. More complex operations require several instructions; 
typical examples are the following: 


* Add memory locations OPER1 and OPER2, place result in RESLT 


LDA OPERI ;GET FIRST OPERAND 
CLC ;MAKE CARRY ZERO 
ADC OPER2 ;ADD SECOND OPERAND 
STA RESLT ;SAVE SUM 


Note that we must load the first operand into the accumulator and clear the Carry 
before adding the second operand. 
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* Add a constant (VALUE) to memory location OPER. 


LDA OPER ;GET CURRENT VALUE 

CLC ;MAKE CARRY ZERO 

ADC #VALUE ;ADD VALUE 

STA OPER ;STORE SUM BACK 
If VALUE is 1, we can shorten this to 

INC OPER ;ADD 1 TO CURRENT VALUE 
Similarly, if VALUE is —1, we have 

DEC OPER ;SUBTRACT 1 FROM CURRENT VALUE 


BIT MANIPULATION 


The programmer can set, clear, complement, or test bits by means of logical 
operations with appropriate masks. Shift instructions can rotate or shift the 
accumulator or a memory location. Chapter 7 contains additional examples of bit 
manipulation. | 

You may operate on individual bits in the accumulator as follows: 

* Set them by logically ORing with 1s in the appropriate positions. 

* Clear them by logically ANDing with Os in the appropriate positions. 


‚ Invert (complement) them by logically EXCLUSIVE ORing with 1s in the 
appropriate positions. 


* Test them by logically ANDing with 1s in the appropriate positions. 
Examples 

1. Set bit 6 of the accumulator. 

ORA %%01000000 ;SET BIT 6 BY ORING WITH 1 

2. Clear bit 3 of the accumulator. 

AND #%11110111 ;CLEAR BIT 3 BY ANDING WITH 0 


3. Invert (complement) bit 2 of the accumulator. 
EOR %%00000100 ;INVERT BIT 2 BY XORING WITH 1 


4. Test bit 5 of the accumulator. Clear the Zero flag if bit 5 is a logic 1 and set 
the Zero flag if bit 5 is a logic 0. 


AND #%00100000 ;TEST BIT 5 BY ANDING WITH 1 

You can change more than one bit at a time by changing the masks. 
5. Set bits 4 and 5 of the accumulator. 
ORA %%00110000 ;SET BITS 4 AND 5 BY ORING WITH 1 
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6. Invert (complement) bits 0 and 7 of the accumulator. 
EOR #%10000001  ;INVERT BITS 0 AND 7 BY XORING WITH 1 


The only general way to manipulate bits in other registers or in memory is by 
moving the values to the accumulator. 


· Set bit 4 of memory location 0040... 


LDA $40 
ORA 5%00010000 ;5ЕТ BIT 4 BY ORING WITH 1 
STA $40 


* Clear bit 1 of memory location 17Е0,.. 


LDA $17E0 
AND $$11111101 ;CLEAR ВІТ l BY ANDING WITH 0 
STA $17E0 

An occasional, handy shortcut to clearing or setting bit 0 of a register or 
memory location is using an increment (INC, INX, or INY) to set it (if you know 
that it is 0) and a decrement (DEC, DEX, or DEY) to clear it (if you know that it 
is 1). If you do not care about the other bit positions, you can also use DEC or 
INC. These shortcuts are useful when you are storing a single 1-bit flag in a byte 
of memory. 

The instruction LSR (ASL) shifts the accumulator or a memory location right 
(left) one position, filling the leftmost (rightmost) bit with a 0. Figures 1-1 and 1- 
2 describe the effects of these two instructions. The instructions ROL and ROR 
provide a circular shift (rotate) of the accumulator or a memory location as shown 
in Figures 1-3 and 1-4. Rotates operate as if the accumulator or memory location 
and the Carry flag formed a 9-bit circular register. You should note the following: 


* Left shifts set the Carry to the value that was in bit position 7 and the Nega- 
tive flag to the value that was in bit position 6. 


* Right shifts set the Carry to the value that was in bit position O. 


* Rotates preserve all the bits, whereas LSR and ASL destroy the old Carry 
flag. 


* Rotates allow you to move serial data between memory or the accumulator 
and the Carry flag. This is useful in performing serial I/O and in handling single 
bits of information such as Boolean indicators or parity. 

Multibit shifts simply require the appropriate number of single-bit instruc- 
tions. 


Examples 


1. Rotate accumulator right three positions. 


ROR A 
ROR A 
ROR A 
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Original contents of Carry flag and accumulator or memory location 


В, Ве |Bs | Ва | Ва |В, | By | Bo. 
After ASL (Arithmetic Shift Left) 


Ве |B; В, |B; |B. | Bi [Bo о 


Figure 1-1: The ASL (Arithmetic Shift Left) Instruction 


Original contents of Carry flag and accumulator or memory location 
B; | Вв JB; | B. | B; |B: | Bi [Во 


After LSR (Logical Shift Right) 


[о |в, Ве | Bs] B, В.В, |В, 


Figure 1-2: The LSR (Logical Shift Right) Instruction 


Original contents of Carry flag and accumulator or memory location 
Carry Data 


В, Ве [Bs |В, |Вз |B, |B: Во. 


After ROL (Rotate Left) 
Carr Data 


T 
Bs В, [B4 |B; |; |B: [Во] С. 


Figure 1-3: The ROL (Rotate Left) Instruction 


Original contents of Carry flag and accumulator or memory location 
Carry Data 


B; |В, [Bs |B; |B; |B, |В. [Во 


After ROR (Rotate Right) 
Carry Data 


с | B; Be} Вз [в, [Вз В. В. 


Figure 1-4: The ROR (Rotate Right) Instruction 
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2. Shift memory location 1700,, left logically four positions. 


ASL $1700 
ASL $1700 
ASL $1700 
ASL $1700 


An alternative approach would be to use the accumulator; that is, 
LDA $1700 


ASL A 
ASL A 
ASL A 
ASL 


A 
STA $1700 


The second approach is shorter (10 bytes rather than 12) and faster (16 clock 
cycles rather than 24), but it destroys the previous contents of the accumulator. 
You can implement arithmetic shifts by using the Carry flag to preserve the 
current value of bit 7. Shifting right arithmetically is called sign extension, since it 
copies the sign bit to the right. A shift that operates in this manner preserves the 
sign of a two’s complement number and can therefore be used to divide or nor- 
malize signed numbers. 
Examples 


1. Shift the accumulator right 1 bit arithmetically, preserving the sign (most 
significant) bit. 


TAX ;SAVE THE ACCUMULATOR 

ASL A ;MOVE BIT 7 TO CARRY 

TXA ;RESTORE THE ACCUMULATOR 

ROR A ;SHIFT THE ACCUMULATOR, COPYING BIT 7 


When the processor performs ROR A, it moves the Carry (the old bit 7) to bit 7 
and bit 7 to bit 6, thus preserving the sign of the original number. 


2. Shift the accumulator left 1 bit arithmetically, preserving the sign (most sig- 
nificant) bit. 


ASL А. ;SHIFT A, MOVING BIT 7 TO CARRY 

ROL A ;SAVE BIT 7 IN POSITION 0 

TAX 

LSR A ;CHANGE CARRY TO OLD BIT 7 

TXA 

ROR A ;SHIFT THE ACCUMULATOR, PRESERVING BIT 7 
or 

ASL A ;SHIFT A, MOVING BIT 7 TO CARRY 

BCC CLRSGN ;WAS BIT 7 1? 


ORA $$10000000 ; YES, THEN KEEP IT 1 
BMI EXIT 
CLRSGN AND $$01111111 ; МО, THEN KEEP IT ZERO 
EXIT NOP 


BMI EXIT always forces a branch. 
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MAKING DECISIONS 


We will now discuss procedures for making three types of decisions: 


* Branching if a bit is set or cleared (a logic 1 or a logic 0). 
* Branching if two values are equal or not equal. 
* Branching if one value is greater than another or less than it. 


The first type of decision allows the processor to sense the value of a flag, 
switch, status line, or other binary (ON/OFF) input. The second type of decision 
allows the processor to determine whether an input or a result has a specific value 
(e.g., an input is a specific character or terminator or a result is 0). The third type 
of decision allows the processor to determine whether a value is above or below a 
numerical threshold (e.g., a value is valid or invalid or is above or below a warn- 
ing level or set point). Assuming that the primary value is in the accumulator and 
the secondary value (if needed) is in address ADDR, the procedures are as 
follows. 


Branching Set or Cleared Bit 


* Determine if a bit is set or cleared by logically ANDing the accumulator with 
a 1 in the appropriate bit position and Os in the other bit positions. The Zero flag 
then reflects the bit value and can be used for branching (with BEQ or BNE). 
Examples 

]. Branch to DEST if bit 5 of the accumulator is 1. 

AND 8800100000 ;TEST BIT 5 OF A 

BNE DEST 
The Zero flag is set to 1 if and only if bit 5 of the accumulator is 0. Note the inver- 
sion here. 

If we assume that the data is in address ADDR, we can use the BIT instruction 
to produce an equivalent effect. To branch to DEST if bit 5 of ADDR is 1, we can 
use either 


LDA ADDR 
AND $$00100000 
BNE DEST 


ОТ 


LDA #%00100000 

BIT ADDR 

BNE DEST 
We must reverse the order of the operations, since BIT does not allow immediate 
addressing. It does, however, leave the accumulator unchanged for later use. 
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2. Branch to DEST if bit 2 of the accumulator is 0. 


AND %%00000100 ;TEST BIT 2 OF A 
BEQ DEST 


There are special short procedures for examining bit positions 0, 6, or 7. Bit 7 is 
available readily as the Negative flag after a Load or Transfer instruction; bit 0 can 
be moved to the Carry with LSR A or ROR A; bit 6 can be moved to the Negative 
flag with ASL A or ROL A. 

3. Branch to DEST if bit 7 of memory location ADDR is 1. 


LDA ADDR $15 BIT 7 1? 
BMI DEST ; YES, BRANCH 


Note that LDA affects the Zero and Negative flags; so do transfer instructions 
such as TAX, TYA, TSX (but not TXS), and PLA. Store instructions (including 
PHA) do not affect any flags. 


4. Branch to DEST if bit 6 of the accumulator is O. 


ASL A ;MOVE BIT 6 TO BIT 7 
BPL DEST 


5. Branch to DEST if bit 0 of memory location ADDR is 1. 


ROR ADDR ;MOVE BIT 0 OF ADDR TO CARRY 
BCS DEST ;AND THEN TEST THE CARRY 


The BIT instruction has a special feature that allows one to readily test bit 6 or 
bit 7 of a memory location. When the processor executes BIT, it sets the Negative 
flag to the value of bit 7 of the addressed memory location and the Overflow flag 
to the value of bit 6, regardless of the contents of the accumulator. 

6. Branch to DEST if bit 7 of memory location ADDR is 0. 


BIT ADDR ;TEST BIT 7 OF ADDR 
BPL DEST 


This sequence does not affect or depend on the accumulator. 
7. Branch to DEST if bit 6 of memory location ADDR is 1. 


BIT ADDR ;TEST BIT 6 OF ADDR 
BVS DEST 


This sequence requires careful documentation, since the Overflow flag is being 
used in a special way. Here again, the contents of the accumulator do not change 
or affect the sequence at all. 


Branching Based on Equality 


* Determine if the value in the accumulator is equal to another value by 
subtraction. The Zero flag will be set to 1 if the values are equal. The Compare 
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instruction (CMP) is more useful than the Subtract instruction (SBC) because 
Compare does not change the accumulator or involve the Carry. 


Examples 
1. Branch to DEST if the accumulator contains the number VALUE. 
CMP #VALUE 15 DATA = VALUE? 
BEG DEST ; YES, BRANCH 


We could also use index register X with CPX or index register Y with CPY. 


2. Branch to DEST if the contents of the accumulator are not equal to the con- 
tents of memory location ADDR. 


CMP ADDR ;IS DATA - VALUE IN MEMORY? 
BNE DEST ;NO, BRANCH 

3. Branch to DEST if memory location ADDR contains 0. 
LDA ADDR ;15 DATA ZERO? 

BEQ DEST ;YES, BRANCH 


We can handle some special cases without using the accumulator. 


4. Branch to DEST if memory location ADDR contains 0, but do not change 
the accumulator or either index register. 


INC ADDR ;TEST MEMORY FOR ZERO 

DEC ADDR 

BEQ DEST :BRANCH IF IT IS FOUND 

5. Branch to DEST if memory location ADDR does not contain 1. 
DEC ADDR ;SET ZERO FLAG IF ADDR IS 1 


BNE DEST 
This sequence, of course, changes the memory location. 
6. Branch to DEST if memory location ADDR contains FF... 


INC ADDR ;SET ZERO FLAG IF ADDR IS FF 
BEQ DEST 


INC does not affect the Carry flag, but it does affect the Zero flag. Note that you 
cannot increment or decrement the accumulator with INC or DEC. 


Branching Based on Magnitude Comparisons 


- Determine if the contents of the accumulator are greater than or less than 
some other value by subtraction. If, as is typical, the numbers are unsigned, the 
Carry flag indicates which one is larger. Note that the 6502’s Carry flag is a nega- 
tive borrow after comparisons or subtractions, unlike the true borrow produced 
by such processors as the 8080, Z-80, and 6800. In general, 
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* Carry = 1 if the contents of the accumulator are greater than or equal to the 
value subtracted from it. Carry = 1 if the subtraction does not require (generate) 
a borrow. 

* Carry = Oif the value subtracted is larger than the contents of the accumula- 
tor. That is, Carry = 0 if the subtraction does require a borrow. 


Note that the Carry is the inverse of a normal borrow. If the two operands are 
equal, the Carry is set to 1, just as if the accumulator were larger. If, however, you 
want equal values to affect the Carry as if the other value were larger, all that you 
must do is reverse the identities of the operands, that is, you must subtract in 
reverse, saving the accumulator in memory and loading it with the other value 
instead. 

Examples 

1. Branch to DEST if the contents of the accumulator are greater than or equal 

to the number VALUE. | 


СМР #VALUE ;IS DATA ABOVE VALUE? 
BCS DEST :ҮЕ5, BRANCH 


The Carry is set to ] if the unsigned subtraction does not require a borrow. 


2. Branch to DEST if the contents of memory address OPER] are less than the 
contents of memory address OPER2. 


LDA OPERI ;GET FIRST OPERAND 
CMP OPER2 71S IT LESS THAN SECOND OPERAND? 
BCC DEST ;YES, BRANCH 


The Carry will be set to 0 if the subtraction requires a borrow. 


3. Branch to DEST if the contents of memory address ОРЕК | are less than or 
equal to the contents of memory address OPERA. 


LDA OPER2 ;GET SECOND OPERAND 
CMP OPERI 71S IT GREATER THAN OR EQUAL TO FIRST? 
BCS DEST ; YES, BRANCH 


If we loaded the accumulator with OPERI and compared to OPER2, we could 
branch only on the conditions 


* OPERI greater than or equal to OPER2 (Carry set) 
“ OPERI less than OPER2 (Carry cleared) 


Since neither of these is what we want, we must handle the operands in the 
opposite order. 

If the values are signed, we must allow for the possible occurrence of two's 
complement overflow. This is the situation in which the difference between the 
numbers cannot be contained in seven bits and, therefore, changes the sign of the 
result. For example, if one number is +7 and the other is — 125, the difference is 
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— 132, which is beyond the capacity of eight bits (it is less than —128, the most 
negative number that can be contained in eight bits). 

Thus, in the case of signed numbers, we must allow for the following two 
possibilities: 

* The result has the sign (positive or negative, as shown by the Negative flag) 
that we want, and the Overflow flag indicates that the sign is correct. 


* The result does not have the sign that we want, but the Overflow flag indi- 
cates that two's complement overflow has changed the real sign. 


We have to look for both a true positive (the sign we want, unaffected by over- 
flow) or a false negative (the opposite of the sign we want, but inverted by two's 
complement overflow). 

Examples 


1. Branch to DEST if the contents of the accumulator (a signed number) are 
greater than or equal to the number VALUE. 


SEC ; CLEAR INVERTED BORROW 
SBC #VALUE ;PERFORM THE SUBTRACTION 
BVS FNEG 
BPL DEST ;TRUE POSITIVE, NO OVERFLOW 
BMI DONE 

FNEG BMI DEST ;FALSE NEGATIVE, OVERFLOW 


DONE NOP 


2. Branch to DEST if the contents of the accumulator (a signed number) are 
less than the contents of address ADDR. 


SEC ;CLEAR INVERTED BORROW 
SBC ADDR ;PERFORM THE SUBTRACTION 
BVS FNEG 
BMI DEST ;TRUE POSITIVE, NO OVERFLOW 
BPL DONE 

FNEG BPL DEST ;FALSE NEGATIVE, OVERFLOW 


DONE NOP 


Note that we must set the Carry and use SBC, because CMP does not affect the 
Overflow flag. 

Tables 1-8 and 1-9 summarize the common instruction sequences used to 
make decisions with the 6502 microprocessor. Table 1-8 lists the sequences that 
depend only on the value in the accumulator; Table 1-9 lists the sequences that 
depend on numerical comparisons between the contents of the accumulator and a 
specific value or the contents of a memory location. Tables 1-10 and 1-11 contain 
the sequences that depend on an index register or on the contents of a memory 
location alone. 
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Table 1-8: Decision Sequences Depending on the Accumulator Alone 


Condition Flag-Setting Instruction киши 


Any bit of A = 0 AND #MASK (1 in bit position) 
Any bit of A — 1 AND #MASK (1 in bit position) 
Bit 7 of = 0 ASL А ог ROL A 

CMP +0 (preserves A) 


Bit 7 of A 1 ASL A ог ROL A 
CMP 3*0 (preserves A) 


Bit 6 of A = 0 ASL А ог ROL A 
Bit боѓ А = 1 ASL A or ROLA 
Bit 0 of = 0 LSR A ог ROR A 
Bit 0of A = 1 LSR A ог ROR A 
(А) = 0 LDA, PLA, TAX, TAY, TXA, or TYA 
(A) $0 LDA, PLA, TAX, TAY, TXA, or TYA 
(A) positive (MSB = 0) LDA, PLA, TAX, TAY, TXA, or TYA 
(A) negative (MSB = 1) LDA, PLA, TAX, TAY, TXA, or TYA 


Table 1-9: Decision Sequences Depending on Numerical Comparisons 


Condition Flag-Setting Instruction Conditional 
Branch 


(A) = VALUE CMP #VALUE 
(A) # VALUE CMP #VALUE 
(A) > VALUE (unsigned) CMP #VALUE 


(A) < VALUE (unsigned) CMP #VALUE 
(A) = (ADDR) CMP ADDR 
(A) + (ADDR) CMP ADDR 
(A) > (ADDR) (unsigned) CMP ADDR 
(A) < (ADDR) (unsigned) CMP ADDR 
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Table 1-10: Decision Sequences Depending on an Index Register 


Condition Flag-Setting Instruction Conditional 
| Branch 


(X or Y) = VALUE 
(Xor Y) £ VALUE 
(X or Y) > VALUE (unsigned) 


(X or Y) « VALUE (unsigned) 
(X or Y) ^ (ADDR) 
(X or Y) # (ADDR) 
(X or Y) > (ADDR) (unsigned) 
(X or Y) « (ADDR) (unsigned) 


CPX or CPY VALUE 
CPX or CPY VALUE 
CPX or CPY VALUE 
CPX or CPY XVALUE 
CPX or CPY ADDR 
CPX or CPY ADDR 
CPX or CPY ADDR 
CPX or CPY ADDR 


Table 1-11: Decision Sequences Depending on a Memory Location Alone 


Condition Flag-Setting Instruction (s) Conditional 
Branch 


Bit 7 — 0 


Bit7=1 


Bit 6 = 0 


Bit 6 = 1 


(ADDR) = 0 
(ADDR) + 0 
Bit 0 = 0 
Bit 0 = 1 


BIT ADDR 
ASL ADDR or ROL ADDR 


BIT ADDR 
ASL ADDR or ROL ADDR 


BIT ADDR 
ASL ADDR or ROL ADDR 


BIT ADDR 
ASL ADDR or ROL ADDR 


INC ADDR, DEC ADDR 
INC ADDR, DEC ADDR 
LSR ADDR or ROR ADDR 
LSR ADDR or ROR ADDR 
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LOOPING 


The simplest way to implement a loop (that is, repeat a sequence of instruc- 
tions) with the 6502 microprocessor is as follows: 


1. Load an index register or memory location with the number of times the 
sequence is to be executed. 


2. Execute the sequence. 
3. Decrement the index register or memory location by 1. 
4. Return to Step 2 if the result of Step 3 is not O. 


Typical programs look like this: 


LDX #NTIMES ;COUNT = NUMBER OF REPETITIONS 
LOOP . 


instructions to be repeated 

DEX 

BNE LOOP 
Nothing except clarity stops us from counting up (using INX, INY, or INC); of 
course, you must change the initialization appropriately. As we will see later, a 
16-bit counter is much easier to increment than it is to decrement. In any case, 
the instructions to be repeated must not interfere with the counting of the repeti- 
tions. You can store the counter in either index register or any memory location. 
Index register X's special features are its use in preindexing and the wide 
availability of zero page indexed modes. Index register Y's special feature is its 
use in postindexing. As usual, memory locations on page 0 are shorter and faster 
to use than are memory locations on other pages. 

Of course, if you use an index register or a single memory location as a 
counter, you are limited to 256 repetitions. You can provide larger numbers of 
repetitions by nesting loops that use a single register or memory location or by 
using a pair of memory locations as illustrated in the following examples: 


* Nested loops 


LDX #NTIMM ;START OUTER COUNTER 
LOOPO LDY #МТІМІ, ;START INNER COUNTER 
LOOPI ° 


. instructions to be repeated 


DEY ;DECREMENT 1NNER COUNTER 
BNE LOOPI 
DEX ;DECREMENT OUTER COUNTER 


BNE LOOPO 
The outer loop restores the inner counter (index register Y) to its starting value 
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(NTIML) after each decrement of the outer counter (index register X). The nest- 
ing produces a multiplicative factor — the instructions starting at LOOPI are 
repeated NTIMM x NTIML times. Of course, a more general (and more reasona- 
ble) approach would use two memory locations on page 0 instead of two index 
registers. 


* 16-bit counter in two memory locations 


LDA #NTIMLC ;INITIALIZE LSB OF COUNTER 
STA COUNTL 
LDA #NTIMHC ; INITIALIZE MSB OF COUNTER 
STA COUNTH 
LOOP 
instructions to be repeated 
INC NTIMLC ; INCREMENT LSB OF COUNTER 
BNE LOOP 
INC NTIMHC ;AND CARRY TO MSB OF COUNTER IF NEEDED 
BNE LOOP 


The idea here is to increment only the less significant byte unless there is a carry 
to the more significant byte. Note that we can recognize a carry only by checking 
the Zero flag, since INC does not affect the Carry flag. Counting up is much 
simpler than counting down; the comparable sequence for decrementing a 16-bit 
counter is 


LDA NTIML $15 LSB OF COUNTER ZERO? 
BNE CNTLSB 
DEC NTIMH ; YES, BORROW FROM MSB 
CNTLSB DEC NTIML ;DECREMENT LSB OF COUNTER 
BNE LOOP ;CONTINUE IP LSB HAS NOT REACHED ZERO 
LDA NTIMH ;OR IF MSB HAS NOT REACHED ZERO 


BNE LOOP 


If we count up, however, we must remember to initialize the counter to the 
complement of the desired value (indicated by the names NTIMLC and 
NTIMHC in the program using INC). 


ARRAY MANIPULATION 


The simplest way to access a particular element of an array is by using indexed 
addressing. One can then 


1. Manipulate the element by indexing from the starting address of the array. 


2. Access the succeeding element (at the next higher address) by increment- 
ing the index register using INX or INY, or access the preceding element (at the 
next lower address) by decrementing the index register using DEX or DEY. One 


30 6502 ASSEMBLY LANGUAGE SUBROUTINES 


could also change the base; this is simple if the base is an absolute address, but 
awkward if it is an indirect address. 


3. Access an arbitrary element by loading an index register with its index. 
Typical array manipulation procedures are easy to program if the array is one- 
dimensional, the elements each occupy 1 byte, and the number of elements is 
less than 256. Some examples are 


* Add an element of an array to the accumulator. The base address of the array 
is a constant BASE. Update index register X so that it refers to the succeeding 8- 
bit element. 


ADC BASE,X ;ADD CURRENT ELEMENT 
INX ;ADDRESS NEXT ELEMENT 


* Check to see if an element of an array is 0 and add 1 to memory location 
ZCOUNT if it is. Assume that the address of the array is a constant BASE and its 


index is in index register X. Update index register X so that it refers to the pre- 
ceding 8-bit element. 


LDA BASE,X ;GET CURRENT ELEMENT 

BNE UPDDT ;IS ITS VALUE ZERO? 

INC 2 COUNT ;YES, ADD 1 TO COUNT OF ZEROS 
UPDDT DEX ;ADDRESS PRECEDING ELEMENT 


* Load the accumulator with the 35th element of an array. Assume that the 
starting address of the array is BASE. 


LDX #35 ;GET INDEX OF REQUIRED ELEMENT 
LDA BASE,X ;OBTAIN THE ELEMENT 


The most efficient way to process an array is to start at the highest address and 
work backward. This is the best approach because it allows you to count the index 
register down to 0 and exit when the Zero flag is set. You must adjust the 
initialization and the indexed operations slightly to account for the fact that the 0 
index is never used. The changes are 


* Load the index register with the number of elements. 


* Use the base address START—1, where START is the lowest address 
actually occupied by the array. 


If, for example, we want to perform a summation starting at address START 
and continuing through LENGTH elements, we use the program 


LDX #LENGTH ;START AT THE END OF THE ARRAY 

LDA #0 ;CLEAR THE SUM INITIALLY 
ADBYTE CLC 

ADC START-1,X ;ADD THE NEXT ELEMENT 

DEX 

BNE ADBYTE ;COUNT ELEMENTS 
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Manipulating array elements becomes more difficult if you need more than one 
element during each iteration (as in a sort that requires interchanging of ele- 
ments), if the elements are more than one byte long, or if the elements are them- 
selves addresses (as in a table of starting addresses). The basic problem is the lack 
of 16-bit registers or 16-bit instructions. The processor can never be instructed to 
handle more than 8 bits. Some examples of more general array manipulation are 


* Load memory locations POINTH and POINTL with a 16-bit element of an 
array (stored LSB first). The base address of the array is BASE and the index of 
the element is in index register X. Update X so that it points to the next 16-bit 
element. 


LDA BASE,X ;GET LSB OF ELEMENT 
STA POINTL 

INX 

LDA BASE,X ;GET MSB OF ELEMENT 
STA POINTH 

INX ;ADDRESS NEXT ELEMENT 


The single instruction LDA BASE+1,X loads the accumulator from the same 
address as the sequence 


INX 
LDA BASE, X 


assuming that X did not originally contain FF... If, however, we are using a base 
address indirectly, the alternatives are 


INC PGZRO ¿INCREMENT BASE ADDRESS 
BNE INDEX 
INC PGZRO+1 ¿WITH CARRY IF NECESSARY 
INDEX LDA (PGZRO),Y 
Or 
INY 
LDA (PGZRO),Y 


The second sequence is much shorter, but the first sequence will handle arrays 
that are more than 256 bytes long. 


* Exchange an element of an array with its successor if the two are not already | 
in descending order. Assume that the elements are 8-bit unsigned numbers. The 
base address of the array is BASE and the index of the first number is in index 
register X. 


LDA BASE,X ; GET ELEMENT 

CMP BASE+1,X 315 SUCCESSOR SMALLER? 

BCS DONE ;NO, NO INTERCHANGE NECESSARY 
PHA ;YES, SAVE ELEMENT 

LDA BASE+1,X : INTERCHANGE 

STA BASE, X 

PLA 


STA BASE+1,X 
DONE INX ;ACCESS NEXT ELEMENT 
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. Load the accumulator from the 12th indirect address in a table. Assume that 
the table starts at the address BASE. 


LDX $24 ;GET DOUBLÉD OFFSET FOR INDEX 

LDA BASE,X ;GET LSB OF ADDRESS 

STA PGZ RO ;SAVE ON PAGE ZERO 

INX 

LDA BASE,X ;GET MSB OF ADDRESS 

STA PGZRO+1 ;SAVE ON PAGE ZERO 

LDY #0 

LDA (PGZRO),Y ;LOAD INDIRECT BY INDEXING WITH ZERO 


Note that you must double the index to handle tables containing addresses, since 
each 16-bit address occupies two bytes of memory. 

If the entire table is on page 0, we can use the preindexed (indexed indirect) 
addressing mode. 


LDX #24 ;GET DOUBLED OFFSET FOR INDEX 
LDA (BASE,X) ;LOAD FROM INDEXED INDIRECT ADDRESS 


You still must remember to double the index. Here we must also initialize the 
table of indirect addresses in the RAM on page 0. 

We can generalize array processing by storing the base address in two locations 
on page 0 and using the postindexed (indirect indexed) addressing mode. Now 
the base address can be a variable. This mode assumes the use of page 0 and index 
register Y and is available only for a limited set of instructions. 


Examples 


1. Add an element of an array to the accumulator. The base address of the 
array is in memory locations PGZRO and PGZRO +1. The index of the element 
is in index register Y. Update index register Y so that it refers to the succeeding 8- 
bit element. 


CLC ADC (PGZRO) ,Y ;ADD CURRENT ELEMENT 
INY ;ADDRESS NEXT ELEMENT 


2. Check to see if an element of an array is 0 and add 1 to memory location 
ZCOUNT if it is. Assume that the base address of the array is in memory loca- 


tions PGZRO and PGZRO- 1. The index of the element is in index register Y. 
Update index register Y so that it refers to the preceding 8-bit element. 


LDA (PGZRO) ,Y ;GET CURRENT ELEMENT 

BNE UPDDT :15 ITS VALUE ZERO? 

INC 2 COUNT ;YES, ADD 1 TO COUNT OF ZEROS 
UPDDT DEY ;ADDRESS PRECEDING ELEMENT 


Postindexing also lets us handle arrays that occupy more than 256 bytes. As we 
noted earlier, the simplest approach to long counts is to keep a 16-bit comple- 
mented count in two memory locations. If the array is described by a base address 
on page 0, we can update that base whenever we update the more significant byte 
of the complemented count. For example, if we want to clear an area of memory 
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described by a complemented count in memory locations COUNTH and 
COUNTL and an initial base address in memory locations PGZRO and 
PGZRO +1, we can use the following program: 


LDA #0 ;DATA = ZERO 

TAY ; INDEX = ZERO 
CLEAR STA (PGZRO) , Y ;CLEAR A BYTE 

INY ;MOVE TO NEXT BYTE 

BNE CHKCNT 

INC PGZRO + 1 ;AND TO NEXT PAGE IF NEEDED 
CHKCNT INC COUNTL ;COUNT BYTES 

BNE CLEAR 

INC COUNTH ;WITH CARRY TO MSB 


BNE CLEAR 


The idea here is to proceed to the next page by incrementing the more significant 
byte of the indirect address when we finish a 256-byte section. 

One can also simplify array processing by reducing the multiplications required 
in indexing to additions. In particular, one can handle arrays of two-byte elements 
by using ASL A to double an index in the accumulator. 


Example 


Load the accumulator from the indirect address indexed by the contents of 
memory location INDEX. Assume that the table starts at address BASE. 


LDA INDEX ;GET INDEX 

ASL A ;AND DOUBLE IT FOR 2-BYTE ENTRIES 
TAX 

LDA BASE,X ;GET LSB OF INDIRECT ADDRESS 

STA PGZRO ;SAVE ON PAGE ZERO 

INX 

LDA BASE, X ;GET MSB OF INDIRECT ADDRESS 

STA PGZRO + 1 ;SAVE ON PAGE ZERO 

LDY #0 ;PREINDEX WITH ZERO 

LDA (PGZRO) ,Y 


As before, if the entire table of indirect addresses is on page 0, we can use the 
preindexed (indexed indirect) addressing mode. 


LDA INDEX ;GET INDEX 

ASL A ;DOUBLE INDEX FOR 2-BYTE ENTRIES 
TAX 

LDA (BASE, X) ;LOAD FROM INDEXED INDIRECT ADDRESS 


You can handle indexing into longer arrays by using the postindexed (indirect 
indexed) mode. Here we must construct a base address with an explicit addition 
before indexing, since the 6502’s index registers are only 8 bits long. 


Example 


Load the accumulator from the element of an array defined by a starting 
address BASE (BASEH more significant byte, BASEL less significant byte) and a 
16-bit index in memory locations INDEX and INDEX+1 (MSB in INDEX 4 1). 
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LDA #BASEL ;MOVE LSB OF BASE TO PAGE ZERO 
STA PGZRO 

LDA #BASEH ;ADD MSB'S OF BASE AND INDEX 
STA POINTL 

CLC 

ADC INDEX+1 

STA PGZRO+1 

LDY INDEX ;USE LSB OF INDEX EXPLICITLY 
LDA (PGZRO) ,Y ;GET ELEMENT 


TABLE LOOKUP 


Table lookup can be handled by the same procedures as array manipulation. 
Some examples are 


* Load the accumulator with an element from a table. Assume that the base 
address of the table is BASE (a constant) and the 8-bit index is in memory loca- 
tion INDEX. 


LDX INDEX ;GET INDEX 
LDA BASE, X ;GET THE ELEMENT 


The problem is more complicated if INDEX is a 16-bit number. 


* Load the accumulator with an element from a table. Assume that the base 
address of the table is BASE (a constant, made up of bytes BASEH and BASEL) 
and the 16-bit index is in memory locations INDEX and INDEX--1 (MSB in 
INDEX +1). 

The procedure is the same one we just showed for an array. You must add the 
more significant byte of the index to the more significant byte of the base with an 
explicit addition. You can then use postindexing to obtain the element. 


* Load memory locations POINTH and POINTL with a 16-bit element from a 
table. Assume that the base address of the table is BASE (a constant) and the 
index is in memory location INDEX. 


LDA INDEX ;GET THE INDEX 

ASL A ;DOUBLE IT FOR TWO-BYTE ENTRIES 
TAX 

LDA BASE,X ;GET LSB OF ELEMENT 

INX 

LDA BASE,X ‚СЕТ MSB OF ELEMENT 


STA POINTH 


We can also handle the case in which the base address is a variable in two memory 
locations on page 0 (PGZRO and PGZRO- 1). 


LDA 
ASL 
TAY 
LDA 
STA 
INY 
LDA 
STA 


INDEX 
A 


(PGZRO) ,Y 
POINTL 


(PGZRO) ,Y 
POINTH 
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;GET THE INDEX 
;DOUBLE IT FOR TWO-BYTE ENTRIES 


;GET LSB OF ELEMENT 


;GET MSB OF ELEMENT 


We can revise the program further to handle an array with more than 128 entries. 


LDA 
ASL 


LDELEM TAY 


INDEX 

A 
LDELEM 
PGZ RO+1 


(PGZRO) ,Y 
POINTL 


(PGZRO) ,Y 
POINTH 


;GET THE INDEX 
;DOUBLE IT FOR TWO-BYTE ENTRIES 


;ADD CARRY TO INDIRECT ADDRESS 


;GET LSB OF ELEMENT 


;GET MSB OF ELEMENT 


Still another extension handles a 16-bit index. 


LDA 
ASL 
TAY 
LDA 
ROL 
ADC 
STA 
LDA 
STA 
INY 
LDA 
STA 


INDEX 
A 


INDEX+1 

A 

PGZRO+1 
PGZRO+1 
(PGZRO) ,Y 
POINTL 


(PGZRO) ,Y 
POINTH 


;GET LSB OF INDEX 
;DOUBLE IT 


;GET MSB OF INDEX 
;DOUBLE IT WITH CARRY 
;AND ADD RESULT TO INDIRECT ADDRESS 


;GET LSB OF ELEMENT 


‚СЕТ MSB OF ELEMENT 


* Transfer control (jump) to a 16-bit address obtained from a table. Assume 
that the base address of the table is BASE (a constant) and the index is in 
memory location INDEX. 


Here there are two options: Store the address obtained from the table in two 
memory locations and use an indirect jump, or store the address obtained from 
the table in the stack and use the RTS (Return from Subroutine) instruction. 


OPTION 1: Indirect Jump 


LDA 
ASL 
TAX 
LDA 
STA 
INX 


INDEX 
A 


BASE, X 
TEMP 


;GET INDEX 
;DOUBLE IT FOR TWO-BYTE ENTRIES 


? СЕТ LSB OF DESTINATION ADDRESS 
;STORE LSB SOMEWHERE 
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LDA BASE,X ;GET MSB OF DESTINATION ADDRESS 
STA TEMP+1 ;STORE MSB IN NEXT BYTE 
JMP (TEMP) ;INDIRECT JUMP TO DESTINATION 


JMP is the only 6502 instruction that has true indirect addressing. Note that 
TEMP and ТЕМР + 1 can be anywhere in memory; they need not be on page 0. 


OPTION 2: Jump Through the Stack 


LDA INDEX ;GET INDEX 

ASL A ;DOUBLE IT FOR TWO-BYTE ENTRIES 

TAX 

INX 

LDA BASE,X :GET MSB OF DESTINATION ADDRESS 

PHA : SAVE MSB IN STACK 

DEX 

LDA BASE,X ;GET LSB OF DESTINATION ADDRESS 

PHA ;SAVE LSB IN STACK 

RTS ;TRANSFER CONTROL TO DESTINATION 


This alternative is awkward for the following reasons: 


- RTS adds 1 to the program counter after loading it from the stack. Thus, the 
addresses in the table must all be one less than the actual values to which you 
wish to transfer control. This offset evidently speeds the processor’s execution of 
the JSR (Jump to Subroutine) instruction, but it also can confuse the pro- 
grammer. 


* You must remember that the stack is growing down in memory, toward 
lower addresses. To have the destination address end up in its normal order (less 
significant byte at lower address), we must push the more significant byte first. 
This is essentially a double negative; we store the address in the wrong order but 
it ends up right because the stack is growing down. 


* The use of RTS is confusing. How can one return from a routine that one has 
never called? In fact, this approach uses RTS to call a subroutine. You should 
remember that RTS is simply a jump instruction that obtains the new value for 
the program counter from the top of the stack. While the common use of RTS is 
to transfer control from a subroutine back to a main program (hence, the 
mnemonic), there is no reason to limit it to that function. The mnemonic may 
confuse the programmer, but the microprocessor does exactly what it is supposed 
to do. Careful documentation can help calm the nerves if you feel uneasy about 
this procedure. 


The common uses of jump tables are to implement CASE statements (for 
example, multiway branches as used in languages such as FORTRAN, Pascal, 
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and PL/I) to decode commands from a keyboard, and to respond to function keys 
on a terminal. 


CHARACTER MANIPULATION 


The easiest way to manipulate characters is to treat them as unsigned 8-bit 
numbers. The letters and digits form ordered subsequences of the ASCII charac- 
ters; for example, the ASCII representation of the letter A is one less than the 
ASCII representation of the letter B. Handling one character at a time is just like 
handling normal 8-bit unsigned numbers. Some examples are 


* Branch to address DEST if the accumulator contains an ASCII E. 


CMP # "Е ;1S DATA Е? 
BEQ DEST ;YES, BRANCH 


* Search a string starting at address STRNG until a non-blank character is 
found. 


LDX #0 ;POINT TO START OF STRING 

LDA #' ;GET А BLANK FOR CHECKING 
EXAMC CMP STRNG, X ;IS NEXT CHARACTER A BLANK? 

BNE DONE ;NO, DONE 

INX ;YES,PROCEED TO NEXT CHARACTER 


JMP EXAMC 
DONE NOP 


Or 
LDX #5ЕЕ ; POINT TO BYTE BEFORE START 
LDA # ' ;GET A BLANK FOR COMPARISON 
EXAMC INX ; PROCEED TO NEXT CHARACTER 
CMP STRNG,X 7IS IT A BLANK? 
BEC EXAMC ; YES, KEEP LOOKING 


° Branch to address DEST if the accumulator contains a letter between C and 
F, inclusive. 


CMP #'C ;IS DATA BELOW C? 

BCC DONE ;YES, DONE 

CMP #'G ;1S DATA BELOW G? 

BCC DEST ;YES, MUST BE BETWEEN C AND F 


DONE NOP 
Chapter 8 contains further examples of string manipulation. 


CODE CONVERSION 


You can convert data from one code to another using arithmetic or logical 
operations (if the relationship is simple) or lookup tables (if the relationship is 
complex). 
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Examples 
1. Convert an ASCII digit to its binary-coded decimal (BCD) equivalent. 
SEC ;CLEAR THE INVERTED BORROW 
SBC #'0 ;CONVERT ASCII TO BCD 


Since the ASCII digits form an ordered subsequence, all you must do is subtract 
the offset (ASCII 0). 
You can also clear bit positions 4 and 5 with the single instruction 

AND #%11001111 :CONVERT ASCII TO BCD 


Either the arithmetic sequence or the logical instruction will, for example, con- 
vert ASCII 0 (30,,) to decimal 0 (00,,). 
2. Convert a binary-coded decimal (BCD) digit to its ASCII equivalent. 


CLC ;CLEAR THE CARRY 
ADC #'0 ;CONVERT BCD ТО ASCII 


The inverse conversion is equally simple. You can also set bit positions 4 and 5 
with the single instruction 
ORA #%00110000 ;CONVERT BCD TO ASCII 


Either the arithmetic sequence or the logical instruction will, for example, con- 
vert decimal 6 (06,,) to ASCII 6 (36,,). 

3. Convert one 8-bit code to another using a lookup table. Assume that the 
lookup table starts at address NEWCD and is indexed by the value in the original 
code (for example, the 27th entry is the value in the new code corresponding to 
27 in the original code). Assume that the data is in memory location CODE. 

LDX CODE ;GET THE OLD CODE 
LDA NEWCD, X ;CONVERT IT TO THE NEW CODE 


Chapter 4 contains further examples of code conversion. 


MULTIPLE-PRECISION 
ARITHMETIC 


Multiple-precision arithmetic requires a series of 8-bit operations. One must 


* Clear the Carry before starting addition or set the Carry before starting 
subtraction, since there is never a carry into or borrow from the least significant 
byte. 


* Use the Add with Carry (ADC) or Subtract with Borrow (SBC) instruction 
to perform an 8-bit operation and include the carry or borrow from the previous 
operation. 
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A typical 64-bit addition program is 


LDX #8 ;NUMBER OF BYTES = 8 
CLC ;CLEAR CARRY TO START 
ADDB: LDA NUM1-1,X ;GET A BYTE OF ONE OPERAND 
ADC NUM2-1,X ;ADD A BYTE OF THE OTHER OPERAND 
STA NUM1-1,X ;STORE THE 8-BIT SUM 
DEX 
BNE ADDB ;COUNT BYTE OPERATIONS 


Chapter 6 contains further examples. 


MULTIPLICATION AND 
DIVISION 


Multiplication can be implemented in a variety of ways. One technique is to 
convert simple multiplications to additions or left shifts. 


Examples 

1. Multiply the contents of the accumulator by 2. 
ASL A ;DOUBLE A 

2. Multiply the contents of the accumulator by 5. 
STA TEMP 
ASL A ҘА TIMES 2 
ASL А ҘА TIMES 4 
ADC TEMP ҘА TIMES 5 


This approach assumes that shifting the accumulator left never produces a 
carry. This approach is often handy in determining the locations of elements of 
two-dimensional arrays. For example, let us assume that we have a set of tem- 
perature readings taken at four different positions in each of three different tanks. 
We organize the readings as a two-dimensional array T(I,J), where I is the tank 
number (1, 2, or 3) and J is the number of the position in the tank (1, 2, 3, or 4). 
We store the readings in the linear memory of the computer one after another as 
follows, starting with tank 1: 


BASE T (1,1) Reading at tank 1, location 1 
ВА5Е+1 T (1,2) Reading at tank 1, location 2 
BASE+2 T (1,3) Reading at tank 1, location 3 
BASE+3 T (1,4) Reading at tank 1, location 4 
BASE+4 T(2,1) Reading at tank 2, location 1 
BASE+5 T(2,2) Reading at tank 2, location 2 
BASE+6 T(2,3) Reading at tank 2, location 3 
BASE+7 T (2,4) Reading at tank 2, location 4 
BASE+8 T (3,1) Reading at tank 3, location 1 
BASE+9 T (3,2) Reading at tank 3, location 2 
BASE+10 T (3,3) Reading at tank 3, location 3 
BASE+11 T (3,4) Reading at tank 3, location 4 
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So, generally the reading T(I,J) is located at address BASE+4 x (I—1) + 
(J— 1). If Lis in memory location IND] and J is in memory location IND2, we can 
load the accumulator with T(IJ) as follows: 


LDA IND1 ;GET I 

SEC 

SBC #1 ;CALCULATE I - 1 
ASL A ;2 X (I - 1) 

ASL A ;4 X (I - 1) 

SEC 

SBC #1 АХ (1-1) - 1 
CLC 

ADC IND2 ;4 X (I - 1) + J - 1 
TAX 

LDA BASE,X ;GET T(I,J) 


We can extend this approach to handle arrays with more dimensions. 

Obviously, the program is much simpler if we store I—1 in memory location 
IND1 and J—1 in memory location IND2. We can then load the accumulator 
with T(I,J) using 


LDA IND] ;GET I - 1 

ASL A 72 X (I - 1) 

ASL A 74 X (I - 1) 

CLC 

ADC IND2 за X (I - 1) + (J - 1) 

TAX 

LDA BASE,X ;GET T(I.J) 

- Simple divisions can also be implemented as right logical shifts. 
Example 

Divide the contents of the accumulator by 4. 

LSR A ;DIVIDE BY 2 

LSR A ;AND BY 2 AGAIN 


If you are multiplying or dividing signed numbers, you must be careful to sepa- 
rate the signs from the magnitudes. You must replace logical shifts with 
arithmetic shifts that preserve the value of the sign bit. 


* Algorithms involving shifts and additions (multiplication) or shifts and 
subtractions (division) can be used as described in Chapter 6. 


* Lookup tables can be used as discussed previously in this chapter. 


Chapter 6 contains additional examples of arithmetic programs. 


LIST PROCESSING" 


Lists can be processed like arrays if the elements are stored in consecutive 
addresses. If the elements are queued or chained, however, the limitations of the 
instruction set are evident in that 
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* No 16-bit registers or instructions are available. 
* Indirect addressing is allowed only through pointers on page 0. 
* No true indirect addressing is available except for JMP instructions. 


Examples 


1. Retrieve an address stored starting at the address in memory locations 
PGZRO and PGZRO+1. Place the retrieved address in memory locations 
POINTL and POINTH. 


LDY #0 ;INDEX = ZERO 

LDA (PGZRO) ,Y ;GET LSB OF ADDRESS 
STA POINTL 

INY 

LDA (PGZRO) , Y ;GET MSB OF ADDRESS 


STA POINTH 


This procedure allows you to move from one element to another in a linked list. 


2. Retrieve data from the address currently in memory locations PGZRO and 
PGZRO+ 1 and increment that address by 1. 


LDY #0 ; INDEX = ZERO 

LDA (PGZRO) ,Y ;GET DATA USING POINTER 
INC PGZRO ;UPDATE POINTER BY 1 
BNE DONE 


INC PGZRO+1 
DONE NOP 
This procedure allows you to use the address in memory as a pointer to the next 
available location in a buffer. Of course, you can also leave the pointer fixed and 
increment a buffer index. If that index is in memory location BUFIND, we have 


LDY BUFIND ;GET BUFFER INDEX 
LDA (PGZRO) , Y ;GET DATA FROM BUFFER 
INC BUFIND :UPDATE BUFFER INDEX BY 1 


3. Store an address starting at the address currently in memory locations 
PGZRO and PGZRO 4 1. Increment the address in memory locations PGZRO 
and PGZRO- | by 2. 


LDY #0 ;INDEX = ZERO 

LDA #ADDRL ;SAVE LSB OF ADDRESS 
STA (PGZRO),Y 

LDA #ADDRH ;SAVE MSB OF ADDRESS 
INY 

STA (PGZRO) ,Y 

CLC ; INCREMENT POINTER BY 2 
LDA PGZRO 

ADC #2 

STA PGZRO 

BCC DONE ;WITH CARRY IF NECESSARY 


INC PGZRO+1 
DONE NOP 
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This procedure lets you build a list of addresses. Such a list could be used, for 
example, to write threaded code in which each routine concludes by transferring 
control to its successor. The list could also contain the starting addresses of a 
series of test procedures or tasks or the addresses of memory locations or I/O 
devices assigned by the operator to particular functions. Of course, some lists 
may have to be placed on page 0 in order to use the 6502’s preindexed or postin- 
dexed addressing modes. 


GENERAL DATA STRUCTURES? 


More general data structures can be processed using the procedures that we 
have described for array manipulation, table lookup, and list processing. The key 
limitations in the instruction set are the same ones that we mentioned in the dis- 
cussion of list processing. 


Examples 


]. Queues or linked lists. Assume that we have a queue header consisting of 
the address of the first element in memory locations HEAD and HEAD +1 (on 
page 0). If there are no elements in the queue, HEAD and HEAD +1 both con- 
tain 0. The first two locations in each element contain the address of the next ele- 
ment or 0 if there is no next element. 


* Add the element in memory locations PGZRO and PGZRO+1 to the head 
of the queue. 


LDX PGZRO ;REPLACE HEAD, SAVING OLD VALUE 
LDA HEAD 

STX HEAD 

PHA 

LDA PGZRO+1 

LDX HEAD+1 

STA НЕАр+1 


рү #0 ;INDEX = ZERO 

PLA ;NEW HEAD'S LINK IS OLD HEAD 
STA (HEAD) ,Y 

TXA 

INY 

STA (HEAD) ,Y 


- Remove an element from the head of the queue and set the Zero flag if no 
element is available. 


LDY #0 ;GET ADDRESS OF FIRST ELEMENT 
LDA (BEAD) ,Y ;GET LESS SIGNIFICANT BYTE 
STA PGZRO 

INY 


LDA (HEAD) ,Y ;GET MORE SIGNIFICANT BYTE 
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STA PGZRO+1 


ORA PGZ КО ;ANY ELEMENTS IN QUEUE? 

BEQ DONE ;NO, DONE (LINK = 0000) 

LDA (PGZRO),Y ;YES, MAKE NEXT ELEMENT NEW HEAD 
STA (HEAD) ,Y 

DEY 

LDA (PGZRO),Y 

STA (HEAD) ,Y 

INY ;CLEAR ZERO FLAG BY MAKING Y 1 


DONE NOP 
Note that we can use the sequence 


LDA ADDR 
ORA ADDR+1 
to test the 16-bit number in memory locations ADDR and ADDR +1. The Zero 
flag is set only if both bytes are 0. 


2. Stacks. Assume that we have a stack structure consisting of 8-bit elements. 
The address of the next empty location is in addresses SPTR and SPTR+1 on 
page 0. The lowest address that the stack can occupy is LOW and the highest 
address is HIGH. 


- If the stack overflows, clear the Carry flag and exit. Otherwise, store the 
accumulator in the stack and increase the stack pointer by 1. Overflow means that 
the stack has exceeded its area. 


LDA #HIGHL :STACK POINTER GREATER THAN HIGH? 
CMP SPTR 
LDA #HIGHM 
SBC SPTR+1 


BCC EXIT ;YES, CLEAR CARRY AND EXIT (OVERFLOW) 
LDY #0 ;NO STORE ACCUMULATOR IN STACK 
STA (SPTR),Y 
INC SPTR ;INCREMENT STACK POINTER 
BNE EXIT 
INC 5РТК+1 
ЕХТТ КОР 


* If the stack underflows, set the Carry flag and exit. Otherwise, decrease Ше 
stack pointer by 1 and load the accumulator from the stack. Underflow means 
that there is nothing left in the stack. 


LDA #LOWL ;STACK POINTER АТ OR BELOW LOW? 

CMP SPTR 

LDA #LOWM 

SBC SPTR+1 

BCS EXIT ? УЕ5, SET CARRY AND EXIT (UNDERFLOW) 
LDA SPTR ;NO, DECREMENT STACK POINTER 


BNE NOBOR 
DEC SPTR+1 
NOBOR DEC SPTR 
LDY #0 :LOAD ACCUMULATOR FROM STACK 
LDA (SPTR) ,Y 
EXIT NOP 
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PARAMETER PASSING TECHNIQUES 


The most common ways to pass parameters on the 6502 microprocessor are 


1. In registers. Three 8-bit registers are available (A, X, and Y). This 
approach is adequate in simple cases but it lacks generality and can handle only a 
limited number of parameters. The programmer must remember the normal uses 
of the registers in assigning parameters. In other words, 


* The accumulator is the obvious place to put a single 8-bit parameter. 


* Index register X is the obvious place to put an index, since it is the most 
accessible and has the most instructions that use it for addressing. Index register 
X is also used in preindexing (indexed indirect addressing). 


* [ndex register Y is used in postindexing (indirect indexed addressing). 


This approach is reentrant as long as the interrupt service routines save and 
restore all the registers. 


2. In an assigned area of memory. The easiest way to implement this 
approach is to place the starting address of the assigned area in two memory loca- 
tions on page 0. The calling routine must store the parameters in memory and 
load the starting address into the two locations on page 0 before transferring con- 
trol to the subroutine. This approach is general and can handle any number of 
parameters, but it requires a large amount of management. If you assign different 
areas of memory for each call or each routine, you are essentially creating your 
own stack. If you use a common area of memory, you lose reentrancy. In this 
method, the programmer is responsible for assigning areas of memory, avoiding 
interference between routines, and saving and restoring the pointers required to 
resume routines after subroutine calls or interrupts. The extra memory locations 
on page 0 must be treated like registers. 


3. In program memory immediately following the subroutine call. If you use 
this approach, you must remember the following: 


- The starting address of the memory area minus 1 is at the top of the stack. 
That is, the starting address is the normal return address, which is 1 larger than 
the address the 6502's JSR instruction saves in the stack. You can move the start- 
ing address to memory locations RETADR and RETADR +1 on page 0 with the 
following sequence: 


PLA ¿GET LSB OF RETURN ADDRESS 
STA RETADR 

PLA ;GET MSB OF RETURN ADDRESS 
STA RETADR+1 

INC RETADR ;ADD 1 TO RETURN ADDRESS 


BNE DONE 
INC RETADR+1 
DONE NOP 
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Now we can access the parameters through the indirect address. That is, you can 
load the accumulator with the first parameter by using the sequence 


LDY #0 ;INDEX = ZERO 
LDA (RETADR),Y ;LOAD FIRST PARAMETER 


An obvious alternative is to leave the return address unchanged and start the 
index at 1. That is, we would have 


PLA ;GET LSB OF RETURN ADDRESS 
STA RETADR 
PLA ;GET MSB OF RETURN ADDRESS 


STA RETADR+1 


Now we could load the accumulator with the first parameter by using the 
sequence | 
LDY #1 ;INDEX = 1 
LDA (RETADR),Y  ;LOAD FIRST PARAMETER 
* All parameters must be fixed for a given call, since the program memory is 
typically ROM. 


* The subroutine must calculate the actual return address (the address of the 
last byte in the parameter area) and place it on top of the stack before executing a 
Return from Subroutine (RTS) instruction. 


Example 


Assume that subroutine SUBR requires an 8-bit parameter and a 16-bit 
parameter. Show a main program that calls SUBR and contains the required 
parameters. Also show the initial part of the subroutine that retrieves the 
parameters, storing the 8-bit item in the accumulator and the 16-bit item in 
memory locations PGZRO and PGZRO + 1, and places the correct return address 
at the top of the stack. 


Subroutine call 


JSR SUBR EXECUTE SUBROUTINE 
.ВҮТЕ РАКВ :8-ВІТ PARAMETER 
WORD РАВ16 :16-ВІТ PARAMETER 
... next instruction ... 
Subroutine 

SUBR PLA ;GET LSB OF PARAMETER ADDRESS 
STA RETADR 
PLA ;GET MSB OF PARAMETER ADDRESS 
STA RETADR+t+1 
LDY #1 ¿ACCESS FIRST PARAMETER 
LDA (RETADR),Y ;GET FIRST PARAMETER 
TAX 
INY 
LDA (RETADR),Y ;ACCESS LSB ОЕ 16-BIT PARAMETER 
STA PGZRO 
INY 


LDA (RETADR),Y ;GET MSB OF 16-BIT PARAMETER 
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STA PGZRO+1 


LDA RETADR ;CALCULATE ACTUAL RETURN ADDRESS 
CLC 

ADA #3 

TAY 


BCC STRMSB 
INC RETADR+1 
STRMSB LDA RETADR+1 ;PUT RETURN ADDRESS ON TOP OF STACK 
PHA | 
ТУА 
РНА 


The initial sequence pops the return address from the top of the stack (JSR saved 
it there) and stores it in memory locations RETADR and RETADR + 1. In fact, 
the return address does not contain an instruction; instead, it contains the first 
parameter. Remember that JSR actually saves the return address minus 1; that is 
why we must start the index at 1 rather than at 0. Finally, adding 3 to the return 
address and saving the sum in the stack lets a final RTS instruction transfer con- 
trol back to the instruction following the parameters. 

This approach allows parameters lists of any length. However, obtaining the 
parameters from memory and adjusting the return address is awkward at best; it 
becomes a longer and slower process as the number of parameters increases. 


4. In the stack. If you use this approach, you must remember the following: 


* JSR stores the return address at the top of the stack. The parameters that the 
calling routine placed in the stack begin at address 0155 + 3, where ss is the con- 
tents of the stack pointer. The 16-bit return address occupies the top two loca- 
tions and the stack pointer itself always refers to the next empty address, not the 
last occupied one. Before the subroutine can obtain its parameters, it must 
remove the return address from the stack and save it somewhere. 


* Theonly way for the subroutine to determine the value of the stack pointer is 
by using the instruction TSX. After TSX has been executed, you can access the 
top of the stack by indexing with register X from the base address 0101,,. The 
extra offset of 1 is necessary because the top of the stack is empty. 


* The calling program must place the parameters in the stack before calling the 
subroutine. 


* Dynamically allocating space on the stack is difficult at best. If you wish to 
reduce the stack pointer by NRESLT, two general approaches are 


TSX ;MOVE STACK POINTER TO A VIA X 

TXA 

SEC ;SUBTRACT NRESLT FROM POINTER 

SBC $NRESLT 

TAX ;RETURN DIFFERENCE TO STACK POINTER 


TXS 
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Or 
LDX _#NRESLT ;COUNT = NRESLT 
PUSHB PHA ;MOVE STACK POINTER DOWN 1 
DEX 


BNE PUSHB 


Either approach leaves NRESLT empty locations at the top of the stack as shown 
in Figure 1-5. Of course, if NRESLT is 1 or 2, simply executing PHA the 
appropriate number of times will be much faster and shorter. The same 
approaches can be used to provide stack locations for temporary storage. 
Example 


Assume that subroutine SUBR requires an 8-bit parameter and a 16-bit 
parameter, and that it produces two 8-bit results. Show a call of SUBR, the 
removal of the return address from the stack, and the cleaning of the stack after 
the return. Figure 1-6 shows the appearance of the stack initially, after the 
subroutine call, and at the end. If you always use the stack for parameters and 
results, you will generally keep the parameters at the top of the stack in the proper 
order. Then you will not have to save the parameters or assign space in the stack 
for the results (they will replace some or all of the original parameters). You will, 
however, have to assign space on the stack for temporary storage to maintain 
generality and reentrancy. 


Calling program 


TSX ;LEAVE ROOM ON STACK FOR RESULTS 
TXA 7A GENERAL WAY TO ADJUST SP 


ADC $2 


LDA #PAR16H ;MOVE 16-BIT PARAMETER TO STACK 
LDA #PAR16L 

LDA #PAR8 ;MOVE 8-BIT PARAMETER TO STACK 
JSR SUBR ;EXECUTE SUBROUTINE 

TSX ;CLEAN PARAMETERS FROM STACK 
ADC #3 

TXS ;RESULT IS NOW AT TOP OF STACK 


Subroutine 


SUBR PLA ;REMOVE RETURN ADDRESS FROM STACK 
STA RETADR 


STA RETADR+1 
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Figure 1-5: The Stack Before and After Assigning NRESLT 
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Figure 1-6: The Effect of a Subroutine on the Stack 
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SIMPLE INPUT/OUTPUT 


Simple input/output can be performed using any memory addresses and any 
instructions that reference memory. The most common instructions are the 
following: 


* LDA (load accumulator) transfers eight bits of data from an input port to the 
accumulator. 

* STA (store accumulator) transfers eight bits of data from the accumulator to 
an output port. 

Other instructions can combine the input operation with arithmetic or logical 
operations. Typical examples are the following: 


* AND logically ANDs the contents of the accumulator with the data from an 
input port. 

* BIT logically АМР the contents of the accumulator with the data from an 
input port but does not store the result anywhere. It does, however, load the 
Negative flag with bit 7 of the input port and the Overflow flag with bit 6, regard- 
less of the contents of the accumulator. 

* CMP subtracts the data at an input port from the contents of the accumula- 
tor, setting the flags but leaving the accumulator unchanged. 


Instructions that operate on data in memory can also be used for input or out- 
put. Since these instructions both read and write memory, their effect on input 
and output ports may be difficult to determine. Remember, input ports cannot 
generally be written, nor can output ports generally be read. The commonly used 
instructions are the following: 


* ASL shifts its data to the left, thus moving bit 7 to the Carry for possible 
serial input. 

* DEC decrements its data. Among other effects, this inverts bit 0. 

* INC increments its data. Among other effects, this inverts bit 0. 

e LSR shifts its data to the right, thus moving bit 0 to the Carry for possible 
serial input. 

* ROR rotates its data to the right, thus moving the old Carry to bit 7 and mov- 
ing bit 0 to the Carry. 

* ROL rotates its data to the left, thus moving the old Carry to bit 0 and mov- 
ing bit 7 to the Carry. 


The effects of these instructions on an input port are typically similar to their 
effects on a ROM location. The microprocessor can read the data, operate on it, 
and set the flags, but it cannot store the result back into memory. The effects on 
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an output port are even stranger, unless the port is latched and buffered. If it is 
not, the data that the processor reads is system-dependent and typically has no 
connection with what was last stored there. 

Examples 


1. Perform an 8-bit input operation from the input port assigned to memory 
address ВО0О (. 


LDA 5В000 ;INPUT DATA 


2. Perform an 8-bit output operation to the output port assigned to memory 
address 3A5E,,. 


STA S3A5E ;OUTPUT DATA 


3. Set the Zero flag if bit 5 of the input port assigned to memory address 
75D0,, is 0. 


LDA #%00100000 ;GET MASK 
AND $75D0 ;SET FLAG IF BIT 5 IS ZERO 


We can also use the sequence 
LDA #%00100000 ;GET MASK 


BIT $75D0 ;SET FLAG IF BIT 5 IS ZERO 
If the bit position of interest is number 6, we can use the single instruction 
BIT $75D0 


to set the Overflow flag to its value. 


4. Set the Zero flag if the data at the input port assigned to memory address 
1700,, is 1B,,. 


LDA #$1B 
CMP $1700 
5. Load the Carry flag with the data from bit 7 of the input port assigned to 
memory address 33A5,,. 


ASL $33A5 
Note that this instruction does not change the data in memory location 33A5,, 
unless that location is latched and buffered. If, for example, there are eight simple 
switches attached directly to the port, the instruction will surely have no effect on 
whether the switches are open or closed. 
6. Place a logic 1 in bit 0 of the output port assigned to memory address B070,.. 


LDA $B070 
ORA %%00000001 
STA $B070 


If none of the other bits in address B070,, are connected, we can use the sequence 


SEC 
ROL 5В070 
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If we know that bit 0 of address B070,, is currently a logic 0, we can use the single 
instruction 
INC $B070 


All of these alternatives will have strange effects if memory address B070,, can- 
not be read. The first two will surely make bit 0 a logic 1, but their effects on the 
other bits are uncertain. The outcome of the third alternative would be a total 
mystery, since we would have no idea what is being incremented. We can avoid 
the uncertainty by saving a copy of the data in RAM location TEMP. Now we can 
operate on the copy using 


LDA TEMP ;GET COPY OF OUTPUT DATA 
ORA %%00000001  ;SET BIT 0 

STA $8070 ;OUTPUT NEW DATA 

STA TEMP ;AND SAVE A COPY OF IT 


LOGICAL AND 
PHYSICAL DEVICES 


One way to select I/O devices by number is to use an I/O device table. An I/O 
device table assigns the actual I/O addresses (physical devices) to the device num- 
bers (/ogical devices) to which a program refers. Using this method, a program 
written in a high-level language may refer to device number 2 for input and num- 
ber 5 for output. For testing purposes, the operator may assign devices numbers 2 
and 5 to be the input and output ports, respectively, of his or her terminal. For 
normal stand-alone operation, the operator may assign device number 2 to be an 
analog input unit and device number 5 the system printer. If the system is to be 
operated by remote control, the operator may assign devices numbers 2 and 5 to 
be communications units used for input and output. 

One way to provide this distinction between logical and physical devices is to 
use the 6502's indexed indirect addressing or preindexing. This mode assumes 
that the device table is located on page 0 and is accessed via an index in register X. 
If we have a device number in memory location DEVNO, the following programs 
can be used: 


* Load the accumulator from the device number given by the contents of 
memory location DEVNO. 


LDA DEVNO ;GET DEVICE NUMBER 

ASL A ;DOUBLE IT TO HANDLE DEVICE ADDRESSES 
TAX 

LDA (DEVTAB,X)  ;GET DATA FROM DEVICE 


e Store the accumulator in the device number given by the contents of 
memory location DEVNO. 
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PHA ;SAVE THE DATA 

LDA DEVNO ;GET DEVICE NUMBER 

ASL A ;DOUBLE IT TO HANDLE DEVICE ADDRESSES 
TAX 

PLA 

STA (DEVTAB,X)  ;SEND DATA TO DEVICE 


In both cases, we assume that the I/O device table starts at address DEVTAB (on 
page 0) and consists of 2-byte addresses. Note that the 6502 provides an appropri- 
ate addressing method, but does not produce any error messages if the pro- 
grammer uses that method improperly by accessing odd addresses or by indexing 
off the end of page 0 (the processor does provide automatic wraparound). In real 
applications (see Chapter 10), the device table will probably contain the starting 
addresses of I/O subroutines (drivers) rather than actual device addresses. 


STATUS AND CONTROL 


You can handle status and control signals like any other data. The only special 
problem is that the processor may not be able to read output ports; in that case, 
you must retain copies (in RAM) of the data sent to those ports. 


Examples 


1. Branch to address DEST if bit 3 of the input port assigned to memory 
address А100 15 1. 


LDA $А100 ¿GET INPUT DATA 
AND %%00001000 ;MASK OFF BIT 3 
BNE DEST 


2. Branch to address DEST if bits 4, 5, and 6 of the input port assigned to 
address STAT are 5 (101 binary). 
LDA STAT ;GET STATUS 


AND %%01110000 ;МА5К OFF BITS 4, 5, AND 6 
CMP $$01010000 ;IS STATUS FIELD 5? 


BEQ DEST ;YES, BRANCH 
3. Set bit 5 of address CNTL to 1. 

LDA CNTL ; СЕТ CURRENT DATA FROM PORT 

ORA 8%00100000 ;SET BIT 5 

STA CNTL ¿RESTORE DATA TO PORT 


If address CNTL cannot be read properly, we can use a copy in memory address 
TEMP. 


LDA TEMP ;GET CURRENT DATA FROM PORT 
ORA %%00100000 ;SET BIT 5 
STA CNTL ;RESTORE DATA TO PORT 


STA TEMP ;UPDATE COPY OF DATA 
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You must update the copy every time you change the data. 


4. Set bits 2, 3, and 4 of address CNTL to 6 (110 binary). 


LDA CNTL ;GET CURRENT DATA FROM PORT 

AND $$11100011 ;CLEAR BITS 2, 3, AND 4 

ORA $$00011000 ;SET CONTROL FIELD TO 6 

STA CNTL ;RESTORE DATA TO PORT 
As in example 3, if address CNTL cannot be read properly, we can use a copy in 
memory address TEMP. 

LDA TEMP ;GET CURRENT DATA FROM PORT 

AND $$11100011  ;CLEAR BITS 2, 3, AND 4 

ORA $$00011000 ;SET CONTROL FIELD TO 6 

STA CNTL ;UPDATE PORT 

STA TEMP ;UPDATE COPY OF DATA 
Retaining copies of the data in memory (or using the values stored in a latched, 
buffered output port) allows you to change part of the data without affecting other 
parts that may have unrelated meanings. For example, you could change the state 
of one indicator light (for example, a light that indicated local or remote opera- 
tion) without affecting other indicator lights attached to the same port. You could 
similarly change one control line (for example, a line that determined whether 
motion was in the positive or negative X-direction) without affecting other con- 
trol lines attached to the same port. 


PERIPHERAL CHIPS 


The major peripheral chips in 6502-based microcomputers are the 6520 and 
6522 parallel interfaces (known as the Peripheral Interface Adapter or PIA and 
the Versatile Interface Adapter or VIA, respectively), the 6551 and 6850 serial 
interfaces (known as Asynchronous Communications Interface Adapters or 
ACIAs), and the 6530 and 6532 multifunction devices (known as ROM-I/O- 
timers or RAM-I/O-timers or ROM-RAM-I/O-timers, abbreviated RIOT or 
RRIOT and sometimes called combo chips). All of these devices can perform a 
variety of functions, much like the microprocessor itself. Of course, peripheral 
chips perform fewer different functions than processors and the range of func- 
tions is limited. The idea behind programmable peripheral chips is that each con- 
tains many useful circuits; the designer selects the ones he or she wants to use by 
storing one or more selection codes in control registers, much as one selects a 
particular circuit from a Designer's Casebook by turning to a particular page. The 
advantages of programmable chips are that a single board containing such devices 
can handle many applications and changes, or, corrections can be made by chang- 
ing selection codes rather than by redesigning circuit boards. The disadvantages 
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of programmable chips are the lack of standards and the difficulty of determining 
how specific chips operate. 

Chapter 10 contains typical initialization routines for the 6520, 6522, 6551, 
6850, 6530, and 6532 devices. These devices are also discussed in detail in the 
Osborne 4 and 8-Bit Microprocessor Handbook’. We will provide only a brief over- 
view of the 6522 device here, since it is the most widely used. 6522 devices are 
used, for example, in the Rockwell AIM-65, Synertek SYM-1, Apple, and other 
popular microcomputers as well as in add-on I/O boards and other functions 
available from many manufacturers. 


6522 Parallel Interface 
(Versatile Interface Adapter) 


A VIA contains two 8-bit parallel I/O ports (A and B), four status and control 
lines (СА1, CA2, СВІ, and CB2 — two for each of the two ports), two 16-bit 
counter/timers (timer 1 and timer 2), an 8-bit shift register, and interrupt logic. 
Each VIA occupies 16 memory addresses. The RS (register select) lines choose 
the various internal registers as described in Table 1-12. The way that a VIA oper- 
ates is determined by the values that the program stores in four registers. 


* Data Direction Register A (DDRA) determines whether the pins on port A 
are inputs (0$) or outputs (1s). A data direction register determines only the 
direction in which traffic flows; you may compare it to a directional arrow that 
indicates which way traffic can move on a highway lane or railroad track. The data 
direction register does not affect what data flows or how often it changes; it only 
affects the direction. Each pin in the I/O port has a corresponding bit in the data 
direction register, and thus, each pin can be selected individually as either an 
input or an output. Of course, the most common choices are to make an entire 8- 
bit I/O port input or outport by storing Os or 1s in all eight bits of the data direc- 
tion register. 


* Data Direction Register B (DDRB) similarly determines whether the pins in 
port B are inputs or outputs. 


- The Peripheral Control Register (PCR) determines how the handshaking 
control lines (CA1, СВ1, CA2, and CB2) operate. Figure 1-7 contains the bit 
assignments for this register. We will discuss briefly the purposes of these bits 
and their uses in common applications. 


* The Auxiliary Control Register (ACR) determines whether the input data 
ports are latched and how the timers and shift register operate. Figure 1-8 con- 
tains the bit assignments for this register. We will also discuss briefly the purposes 
of these bits and their uses in common applications. 
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Table 1-12: Addressing the Internal Registers of the 6522 VIA 


| Select Lines | Lines 
Label ВИН А Addressed Location 


Output register for I/O Port B 

Output register for I/O Port A, with handshaking 
I/O Port B Data Direction register 

I/O Port A Data Direction register 


Read Timer 1 Counter low-order byte 
Write to Timer 1 Latch low-order byte 


Read Timer 1 Counter high-order byte 
Write to Timer 1 Latch high-order byte and 
initiate count 


Access Timer 1 Latch low-order byte 
Access Timer 1 Latch high-order byte 


Read low-order byte of Timer 2 and reset 
Counter interrupt 
Write to low-order byte of Timer 2 but do not 
reset interrupt 


Access high-order byte of Timer 2, reset 
Counter interrupt on write 


Serial I/O Shift register 
Auxiliary Control register 
Peripheral Control register 
Interrupt Flag register 


Interrupt Enable register 


Output register for I/O Port A, without handshaking 
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7 6 5.4 3 2 1 0 «Bit Number 


Peripheral Control register 
wee, itm 
0 Request interrupt on high-to-low | 
transition of CAI Оп interrupt request set 
| Request interrupt on low-to-high | Interrupt Flag register bit 1 
transition of СА І 


000 CA2 input mode 

Р Г : | Request interrupt on On interrupt 
001 CA2 independent input mode | high-to-low CA2 transition [ request set 
DIO AZ impul mode Request interrupt on Interrupt Flag 
011 CA2 independent input mode | jow-to-high CA2 transition. ) register bit 0 


100 CA2 output low on CPU read or write 
101 CA2 output low pulse on CPU read or write 
110 Output CA2 low 
111 Output CA2 high 
0 Request interrupt on high-to-low 
transition of CBI | On interrupt request set 


1 Request interrupt on low-to-high | Interrupt Flag register bit 4 
transition of СВ! 


000 CB2 input mode | 


; А st i int 
001 CB2 independent input mode | Request interrupt on " On interrupt 
: high-to-low CB2 transition ( request set 
Сва Tuma Request interrupt on Interrupt Flag 
5 е, 
011 CB2 independent input mode - ; . 
р НЕ | low-to-high CB2 transition | register bit 3 


100 CB2 output low on CPU write 
101 CB2 output low pulse on CPU write 
110 Output CB2 low 
111 Output CB2 high 


Figure 1-7: Bit Assignments for the 6522 VIA”s Peripheral Control Register 


7 6 S 4 3 2 | 0 «---Ві Number 


Auxiliary Control register 


0 Disable input latch on Port A 

1 Enable input latch on Port A 

0 Disable input latch on Port B 

| Enable input latch on Port B 

000 Disable Shift register 

001 Shift in at Counter 2 rate 

010 Shift in at b2 clock rate 

011 Shift in at external clock rate 

100 Free-running output at Counter 2 rate 

101 Shift out at Counter 2 rate 

110 Shift out at Ф2 clock rate 

111 Shift out at external clock rate 

0 Decrement Counter 2 on $2 clock, in one-shot mode 

| Decrement Counter 2 on external pulses input via PB6 
0 Disable output via РВ? 
| Enable output via PB? 
0 One-shot mode 

| Free-running mode 


Counter | controls 


Figure 1-8: Bit Assignments for the 6522 VIA's Auxiliary Control Register 
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In order to initialize a VIA properly, we must know what its start-up state is. 
Reset clears all the VIA registers, thus making all the data and control lines 
inputs, disabling all latches, interrupts, and other functions, and clearing all 
status bits. 

The data direction registers are easy to initialize. Typical routines are 


* Make port A input. 
LDA #0 
STA DDRA 
* Make port B output. 
LDA #%11111111 
ЅТА DDRB 
e Make bits 0 through 3 of port A input, bits 4 through 7 output. 


LDA #$11110000 
STA DDRA 


* Make bit 0 of port B input, bits 1 through 7 output. 


LDA #$11111110 
STA DDRB 
Bit 0 could, for example, be a serial input line. 
The Peripheral Control Register is more difficult to initialize. We will briefly 
discuss the purposes of the control lines before showing some examples. 
Control lines САТ, CA2, СВІ, and CB2 are basically intended for use as 
handshaking signals. In a handshake, the sender indicates the availability of data 
by means of a transition on a serial line; the transition tells the receiver that new 
data is available to it on the parallel lines. Common names for this serial line are 
VALID DATA, DATA READY, and DATA AVAILABLE. In response to this 
signal, the receiver must accept the data and indicate its acceptance by means of a 
transition on another serial line. This transition tells the sender that the latest 
parallel data has been accepted and that another transmission sequence can begin. 
Common names for the other serial line аге DATA ACCEPTED, PERIPHERAL 
READY, BUFFER EMPTY, and DATA ACKNOWLEDGE. 
Typical examples of complete sequences are 


“ Input from a keyboard. When the operator presses a key, the keyboard pro- 
duces a parallel code corresponding to the key and a transition on the DATA 
READY or VALID DATA line. The computer must determine that the transi- 
tion has occurred, read the data, and produce a transition on the DATA 
ACCEPTED line to indicate that the data has been read. 

* Output to a printer. The printer indicates to the computer that it is ready by 
means of a transition on a BUFFER EMPTY or PERIPHERAL READY line. 
Note that PERIPHERAL READY is simply the inverse of DATA ACCEPTED, 
since the peripheral obviously cannot be ready as long as it has not accepted the 
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latest data. The computer must determine that the printer is ready, send the data, 
and produce a transition on the DATA READY line to indicate that new data is 
available. Of course, input and output are in some sense mirror images. In the 
input case, the peripheral is the sender and the computer is the receiver; in the 
output case, the computer is the sender and the peripheral is the receiver. 

Thus, a chip intended for handshaking functions must provide the following 
functions: 


* It must recognize the appropriate transitions on the DATA READY or PE- 
RIPHERAL READY lines. 


* It must provide an indication that the transition has occurred in a form that is 
easy for the computer to handle. 


- It must allow for the production of the response — that is, for the computer 
to indicate DATA ACCEPTED to an input peripheral or DATA READY to an 
output peripheral. 


There are some obvious variations that the handshaking chip should allow for, 
including the following: 


* The active transition may be either a high-to-low edge (a trailing edge) or a 
low-to-high edge (a leading edge). If the chip does not allow either one, we will 
need extra inverter gates in some situations, since both polarities are common. 


* The response may require either a high-to-low edge or а low-to-high edge. In 
fact, it may require either a brief pulse or a long signal that lasts until the periph- 
eral begins its next operation. 


Experience has shown that the handshaking chip can provide still more conve- 
nience, at virtually no cost, in the following ways: 


- It can latch the transitions on the DATA READY or PERIPHERAL 
READY lines, so that they are held until the computer is ready for them. The 
computer need not monitor the status lines continuously to avoid missing a tran- 
sition. 

* [t can clear the status latches automatically when an input port is read or an 
output port is written, thus preparing them for the next operation. 


* [t can produce the response automatically when an input port is read or an 
output port is written, thus eliminating the need for additional instructions. This 
option is known as an automatic mode. The problem with any automatic mode, no 
matter how flexible the designers make it, is that it will never satisfy all applica- 
tions. Thus, most chips also provide a mode in which the program retains control 
over the response; this mode is called a manual mode. 


“ [n cases where the peripherals are simple switches or lights and do not need 
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any status or control signals, the chip should allow independent operation of the 
status lines. The designer can then use these lines (which would otherwise be 
wasted) for such purposes as threshold detection, zero-crossing detection, or 
clock inputs. In such cases, the designer wants the status and control signals to be 
entirely independent of the operations on the parallel port. We should not have 
any automatic clearing of latches or sending of responses. This is known as an 
independent mode. 

The 6522 peripheral control register allows the programmer to provide any of 
these functions. Bits 0 through 3 govern the operation of port B and its control 
signals; bits 4 through 7 govern the operation of port A and its control signals. 
The status indicators are in the Interrupt flag register (see Figure 1-9). We may 
characterize the bits in the control register as follows: 


- Bit 0 (for port A) and bit 4 (for port B) determine whether the active transi- 
tion on control line 1 is high-to-low (0) or low-to-high (1). If control line 2 is an 
extra input, bit 2 (for port A) and bit 6 (for port B) has a similar function. 


* If control line 2 is an extra input, bit 1 (for port A) and bit 5 (for port B) 
determine whether it operates independently of the parallel data port. This bit is 0 
for normal handshaking and 1 for independent operation. 


* Bit 3 (for port A) and bit 7 (for port B) determine whether control line 2 is an 
extra input line (0) or an output response (1). 


* If control line 2 is an output response, bit 2 (for port A) and bit 6 (for port B) 
determine whether it operates in an automatic mode (0) or a manual mode (1). 


* If control line 2 is being operated in the automatic mode, bit 1 (for port А) 
and bit 5 (for port B) determine whether the response lasts for one clock cycle (1) 
or until the peripheral produces another active transition on control line 1 (0). 


* [f control line 2 is being operated in the manual mode, bit 1 (for port A) and 
bit 5 (for port B) determine its level. 


Some typical examples are 


“ The peripheral indicates DATA READY or PERIPHERAL READY with a 
high-to-low transition on control line 1. No response is necessary. 

In the 4 bits controlling a particular port, the only requirement is that bit 0 
must be 0 to allow recognition of a high-to-low transition on control line 1. The 
other bits are arbitrary, although our preference is to clear unused bits as a stan- 
dard convention. Thus, the bits would be 0000. 


* The peripheral indicates DATA READY or PERIPHERAL READY with a 
low-to-high transition on control line 1. No response is necessary. Bit 0 must be 
set to 1; the other bits are arbitrary. Bit 0 determines which edge the VIA recog- 
izes. 
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0 -————Bit Number 


7 6 5 4 3 2 1 
s|" |= oen en p ее 


Bit 

Set by Cleared by 
Active transition of the signal Reading or writing the A Port Output 
on the CA2 pin. register (ORA) using address 0001. 
Active transition of the signal | Reading or writing the A Port Output 
оп the CAL pin. register (ORA) using address 0001. 
Completion of eight shifts. Reading or writing the Shift 

register. 
Active transition of the signal Reading or writing the B Port 
3 on the CB2 pin. Output register. 

Active transition of the signal | Reading or writing the B Port 
on the СВ] pin. Output register. 

7 


Time-out of Timer 2. Reading T2 low-order counter or 
writing T2 high-order counter. 
Time-out of Timer 1. Reading T1 low-order counter or 
writing T1 high-order latch. 
Active and enabled interrupt Action which clears interrupt 
condition. condition. 


Bits 0, 1, 3, and 4 are the I/O handshake signals. Bit 7 (IRQ) is 1 if any of the 
interrupts is both active and enabled. 


Figure 1-9: The 6522 VIA’s Interrupt Flag Register 


“ The peripheral indicates DATA READY or PERIPHERAL READY with a 
high-to-low transition on control line 1. The port must respond by producing a 
pulse on control line 2 that lasts one clock cycle after the processor reads the 
input or writes the output. 

The required 4-bit sequence is 


Bit 3 = 1 to make control line 2 an output 
Bit 2 — 0 to operate control line 2 in the automatic mode. 


The port therefore produces the response without processor intervention. 
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Bit 1 = 1 to make the response last one clock cycle. 
Bit 0 = 0 to recognize a high-to-low transition on control line 1. 


* The peripheral indicates DATA READY or PERIPHERAL READY with a 
low-to-high transition on control line 1. The port must respond by bringing con- 
trol line 2 low until the peripheral becomes ready again. 

The required 4-bit sequence is 


` 


Bit 3 = 1 to make control line 2 an output. 
Bit 2 = 0 to operate control line 2 in the automatic mode. 
Bit 1 = 0 to make the response last until the peripheral becomes ready again. 


Bit 0 = 1 to recognize a low-to-high transition on control line 1 as the ready signal. 


: The peripheral indicates DATA READY or PERIPHERAL READY with a 
low-to-high transition on control line 1. The processor must respond under pro- 
gram control. 


The required 4-bit sequence is 


Bit 3 = 1 to make control line 2 an output. 
Bit 2 = 1 to operate control line 2 in the manual mode. 
Bit 1 is the initial state for control line. 

1 


Bit 0 


to recognize a low-to-high transition on control line 1 as the ready signal. 


The following sequences can be used to produce the response 


Make CA2 a logic 1: 
LDA VIAPCR ;READ THE PERIPHERAL REGISTER 
ORA #%00000010 ;SET CONTROL LINE 2 TO 1 
STA VIAPCR 

Make CA2 a logic 0: 
LDA VIAPCR ¿READ THE PERIPHERAL REGISTER 
AND $$11111101  ;SET CONTROL LINE 2 TO O0 
STA VIAPCR 

Make CB2 a logic 1: 
LDA VIAPCR ¿READ THE PERIPHERAL REGISTER 
ORA $$00100000 ;SET CONTROL LINE 2 TO 1 
STA VIAPCR 

Make CB2 a logic 0: 
LDA VIAPCR ¿READ THE PERIPHERAL REGISTER 
AND $$11011111  ;SET CONTROL LINE 2 TO 0 
STA VIAPCR 


These sequences do not depend on the contents of the peripheral control register, 
since they do not change any of the bits except the one that controls the response. 

Tables 1-13 and 1-14 summarize the operating modes for control lines CA2 
and CB2. Note that the automatic output modes differ slightly in that port A pro- 
duces a response after either read or write operations, whereas port B produces a 
response only after write operations. 
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Table 1-13: Operating Modes for Control Line CA2 of a 6522 VIA 


Input Mode — Set CA2 Interrupt flag (IFRO) on a negative transition 
of the input signal. Clear IFRO on a read or write of the Peripheral A 
Output register. 


Independent Interrupt Input Mode — Set IFRO on a negative transition 
of the CA2 input signal. Reading or writing ORA does not clear the 
CA2 Interrupt flag. | 


Input Mode — Set CÀ2 Interrupt flag on a positive transition of the 
CA2 input signal. Clear IFRO with a read or write of the Peripheral A 
Output register. 


Independent Interrupt Input Mode — Set ТЕКО on a positive transition 
of the CA2 input signal. Reading or writing ORA does not clear the 
CA2 Interrupt flag. 


Handshake Output Mode — Set CA2 output low on a read or write 
of the Peripheral A Output register. Reset CA2 high with an active 
transition on CAT. 


Pulse Output Mode — CA2 goes low for one cycle following a read or 
write of the Peripheral A Output register. 
ЕЕЕ ЕЗ Manual Output Mode — The CA2 output is held low іп this mode. 
БЕР Manual Output Mode — Тһе CA2 output is held high in this mode. 


The auxiliáry control register is less important than the peripheral control 
register. Its bits have the following functions (see Figure 1-8): 


* Bits O and 1, if set, cause the VIA to latch the input data on port A (bit 0) or 
port B (bit 1) when an active transition occurs on control line 1. This option | 
allows for the case in which the iriput peripheral provides valid data only briefly, 
and the data must be saved until the processor has time to handle it. 


* Bits 2, 3, and 4 control the operations of the seldom-used shift register. This 
register provides a simple serial I/O capability, but most designers prefer either to 
use the serial I/O chips such as the 6551 or 6850 or to provide the entire serial 
interface in software. 


* Bit 5 determines whether timer 2 generates a single time interval (the so- 
called one-shot mode) or counts pulses on line PB6 (pulse-counting mode). 


* Bit 6 determines whether timer 1 generates one time interval (0) or operates 
continuously (1), reloading its counters from the latches after each interval 
elapses. 
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Table 1-14: Operating Modes for Control Line CB2 of a 6522 VIA 


Interrupt Input Mode — Set CB2 Interrupt flag (IFR3) on a negative 
transition of the CB2 input signal. Clear IFR3 on a read or write of the 
Peripheral B Output register. 


Independent Interrupt Input Mode — Set IFR3 on a negative transition 
of the CB2 input signal. Reading or writing ORB does not clear the 
Interrupt flag. 


Input Mode — Set CB2 Interrupt flag on a positive transition 
of the CB2 input signal. Clear the CB2 Interrupt flag on a read or 
write of ORB. 


Independent Input Mode — Set IFR3 on a positive transition of the 
CB2 input signal. Reading or writing ORB does not clear the CB2 
Interrupt flag. 


Handshake Output Mode — Set CB2 low on a write ORB operation. 
Reset CB2 high on an active transition of the 
СВІ input signal. 


Pulse Output Mode — Set CB2 low for one cycle following a write ORB 
operation. 
ESEKRES Manual Output Mode — The CB2 output is held low in this mode. 


ER Manual Output Mode — The CB2 output is held high in this mode. 


* Bit 7 determines whether timer 1 generates output pulses оп РВ7 (a logic 1 
generates pulses). 


The uses of most of these functions are straightforward. They are not as com- 
mon as the handshaking functions governed by the peripheral control register. 

You can also operate a 6522 VIA in an interrupt-driven mode. Interrupts are 
enabled or disabled by setting bits in the interrupt enable register (see Figures 1- 
10 and 1-11) with bit 7 (the enable/disable flag) set (for enabling) or cleared (for 
disabling). Interrupts can be recognized by examining the interrupt flag register 
(see Figure 1-9). Table 1-15 summarizes the setting and clearing (resetting) of 
interrupt flags on the 6522 VIA. 
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0 -— — Bit Number 


7 6 5 4 3 2 1 
|| [||| ү Interrupt Flag register 
|. 


Ж Interrupt Enable register 


Active transition of CA2 
Active transition of CA1 
Shift register eighth shift 
Active transition of CB2 
Active transition of СВІ 
Interval Timer 2 timeout 
Interval Timer 1 timeout 
Enable/disable specification (1 = enable, 0 = disable) 


Any active interrupt request 


The Interrupt Flag register identifies those interrupts which are active. 
A lin any bit position indicates an active interrupt, whereas a 0 indicates 
an inactive interrupt. 


Figure 1-10: The 6522 VIA’s Interrupt Flag and Interrupt Enable Registers 


T 6 5 4 3. 2 1 0 -———Bit Number 
Interrupt Enable Register 


Bit 4, active transition of CBl 


Bit 6, Interval Timer 1 timeout 


Enable specified 


You can selectively enable or disable individual interrupts via the Interrupt 

Enable register. You enable individual interrupts by writing to the Interrupt 

Enable register with a 1 in bit 7. Thus you could enable **time out for Timer 1” 
and “аспуе transitions of signal СВ1” by storing DO,c in the Interrupt Enable register: 


Figure 1-11: A Typical Enabling Operation on the 
6522 VIA’s Interrupt Enable Register 
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Table 1-15: A Summary of Conditions for Setting and 
Resetting Interrupt Flags in the 6522 VIA 


Timeout of Timer 1 Reading Timer 1 Low-Order 
Counter or writing ТІ High-Order Latch 
5 Timeout of Timer 2 Reading Timer 2 Low-Order Counter 
or writing T2 High-Order Counter 
Active transition of the signal on CBl Reading from or writing to I/O Port B 
3 Active transition of the Reading from or writing to 
signal on CB2 (input mode) I/O Port B in input mode only 
Completion of eight shifts Reading or writing the Shift register 


Active transition of the signal on CAI Reading from or writing to 
WRITING INTERRUPT- DRIVEN CODE 


I/O Port A using address 0001, 


Active transition of the 
signal on CA2 (input mode) 


Reading from or writing to I/O Port A 
Output register (ORA) using address 
0001, in input mode only 


The 6502 microprocessor responds to an interrupt (either a nonmaskable 
interrupt, a maskable interrupt that is enabled, or a BRK instruction) as follows: 


* By saving the program counter (more significant byte first) and the status 
register in the stack in the order shown in Figure 1-12. Note that the status 
register ends up on top of the program counter; the sequence PHP, JSR would 
produce the opposite order. The program counter value here is the address of the 
next instruction; there is no offset of 1 as there is with JSR. 


By disabling the maskable interrupt by setting the I flag in the status register. 


* By fetching a destination address from a specified pair of memory addresses 
(see Table 1-16) and placing that destination in the program counter. 


Thus, the programmer should consider the following guidelines when writing 
interrupt-driven code for the 6502: 


. The accumulator and index registers must be saved and restored explicitly if 
the service routine changes them. Only the status register is saved automatically. 
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Before After 

Olss —4 Olss —4 
0155 —3 0155 —3 Stack 
0155 —2 Olss —2 rome 
0155 —1 0155 —1| PCL | 

Olss Stack Olss 
Olss + 1 КӨШЕТ 0155 + 1 
Olss + 2 Olss + 2 

Stack 


ss = Original contents of Stack Pointer 

pp = Original contents of Status (P) register 

PCH = Original contents of 8 higher order bits of Program Counter 
PCL = Original contents of 8 lower order bits of Program Counter 


Figure 1-12: The 6502 Microprocessor’s Response to an Interrupt 


The service routine must save the accumulator before it saves the index registers, 
since it can only transfer an index register to the stack via the accumulator. Typi- 
cal saving and restoring sequences are 


PHA ;SAVE ACCUMULATOR IN STACK 

TXA ;SAVE INDEX REGISTER X 

PHA 

TYA ;SAVE INDEX REGISTER Y 

PHA 

PLA ;RESTORE INDEX REGISTER Y 

TAY 

PLA ;RESTORE INDEX REGISTER X 

TAX 

PLA ;RESTORE ACCUMULATOR FROM STACK 


The order of the index registers does not matter, as long as the saving and restor- 
ing orders are opposites. 


* The interrupt need not be reenabled explicitly, since the RTI (Return from 
Interrupt) instruction restores the old status register as part of its execution. This 
restores the original state of the Interrupt Disable flag. If you wish to return with 
interrupts disabled, you can set the Interrupt Disable flag in the stack with the 
sequence 


PLA ;GET STATUS REGISTER 
ORA $$00000100 ;DISABLE INTERRUPT IN STACK 
PHA ;PUT STATUS REGISTER BACK IN STACK 
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Table 1-16: Interrupt Vectors for the 6502 Microprocessor 


Interrupt Request (IRQ) and BRK Instruction FFFE and FFFF 
Reset (RESET) FFFC and FFFD 


—— 


Nonmaskable Interrupt (NMI) FFFA and FFFB 


The addresses are stored in the usual 6502 fashion with the less significant byte 
at the lower address. 


Note the convenience here of having the status register at the top, rather than 
underneath the return address. 


* If you have code that the processor must execute with interrupts disabled, 
you can use SEI (Set Interrupt Disable) to disable maskable interrupts and CLI 
(Clear Interrupt Disable) to enable them afterward. If the section of code could 
be entered with interrupts either disabled or enabled, you must be sure to restore 
the original state of the Interrupt Disable flag. That is, you must save and restore 
the status register as follows: 


PHP ; SAVE OLD INTERRUPT DISABLE 
SEI ;DISABLE INTERRUPTS 


CODE THAT MUST BE EXECUTED WITH INTERRUPTS DISABLED 
PLP ;RESTORE OLD INTERRUPT DISABLE 


The alternative (automatically reenabling the interrupts at the end) would cause a 
problem if the section were entered with the interrupts already disabled. 


* If you want to allow the user to select the actual starting address of the ser- 
vice routine, place an indirect jump at the vectored address. That is, the routine 
starting at the vectored address is simply 


JMP (USRINT) ;GO TO USER-SPECIFIED ADDRESS 


This procedure increases the interrupt response time by the execution time of an 
indirect jump (five clock cycles). 


* You must remember to save and restore incidental information that is essen- 
tial for the proper execution of the interrupted program. Such incidental informa- 
tion may include memory locations on page 0, priority registers (particularly if 
they are write-only), and other status. 


- To achieve general reentrancy, you must use the stack for all temporary 
storage beyond that provided by the registers. As we noted in the discussion of 
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parameter passing, you can assign space on the stack (NPARAM bytes) with the 
sequence 


TSX ;MOVE S OVER TO A 

TXA 

SEC ;ASSIGN NPARAM EMPTY BYTES 
SBC #N PARAM ;A GENERAL WAY TO ADJUST SP 
TAX 

TXS 


Later, you can remove the temporary storage area with the sequence 


TSX :МОУЕ S OVER ТО A 
TXA 
CLC 
ADC #NPARAM :REMOVE NPARAM EMPTY BYTES 
TAX 
TXS 
If NPARAM is only 1 or 2, you can replace these sequences with the appropriate 


number of push and pull instructions in which the data is ignored. 


- The service routine should initialize the Decimal Mode flag with either CLD 
or SED if it uses ADC or SBC instructions. The old value of that flag is saved and 
restored automatically as part of the status register, but the service routine should 
not assume a particular value on entry. 


MAKING PROGRAMS 
RUN FASTER 


- [n general, you can make a program run substantially faster by first determin- 
ing where it is spending its time. This requires that you determine which loops 
(other than delay routines) the processor is executing most often. Reducing the 
execution time of a frequently executed.loop will have a major effect because of 
the multiplying factor. It is thus critical to determine how often instructions are 
being executed and to work on loops in the order of their frequency of execution. 

Once you have determined which loops the processor executes most fre- 
quently, you can reduce their execution time with the following techniques: 


“ Eliminate redundant operations. These may include a constant that is being 
added during each iteration or a special case that is being tested for repeatedly. It 
may also include a constant value or a memory address that is being fetched each 
time rather than being stored in a register or used indirectly. 


* Use page 0 for temporary data storage whenever possible. 


“ Reorganize the loop to reduce the number of jump instructions. You can 
often eliminate branches by changing the initial conditions, reversing the order of 
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operations, or combining operations. In particular, you may find it helpful to start 
everything back one step, thus making the first iteration the same as all the 
others. Reversing the order of operations can be helpful if numerical comparisons 
are involved, since the equality case may not have to be handled separately. 
Reorganization may also allow you to combine condition checking inside the loop 
with the overall loop control. 


* Work backward through arrays rather than forward. This allows you to count 
the index register down to 0 and use the setting of the Zero flag as an exit condi- 
tion. No explicit comparison is then necessary. Note that you will have to subtract 
1 from the base addresses, since 1 is the smallest index that is actually used. 


- Increment 16-bit counters and indirect addresses rather than decrementing 
them. 16-bit numbers are easy to increment, since you can tell if a carry has 
occurred by checking the less significant byte for 0 afterward. In the case of a 
decrement, you must check for O first. 


* Use in-line code rather than subroutines. This will save at least a JSR instruc- 
tion and an RTS instruction. 


e Watch the special uses of the index registers to avoid having to move data 
between them. The only register that can be used in indirect indexed addressing 
is register Y; the only register that can be used in indexed indirect addressing or 
in loading and storing the stack pointer is register X. 


* Use the instructions ASL, DEC, INC, LSR, ROL, and ROR to operate 
directly on data in memory without moving it to a register. 


* Use the BIT instruction to test bits 6 or 7 of a memory location without load- 
ing the accumulator. 


* Use the CPX and CPY instructions to perform comparisons without using 
the accumulator. 


A general way to reduce execution time is to replace long sequences of instruc- 
tions with tables. A single table lookup can perform the same operation as a 
sequence of instructions if there are no special exits or program logic involved. 
The cost is extra memory, but that may be justified if the memory is readily 
available. If enough memory is available, a lookup table may be a reasonable 
approach even if many of its entries are repetitive — even if many inputs produce 
the same output. In addition to its speed, table lookup is easy to program, easy to 
change, and highly flexible. 
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MAKING PROGRAMS USE 
LESS MEMORY? 


You can make a program use significantly less memory only by identifying 
common sequences of instructions and replacing those sequences with 
subroutine calls. The result is a single copy of each sequence. The more instruc- 
tions you can place in subroutines, the more memory you save. The drawbacks of 
this approach are that JSR and RTS themselves require memory and take time to 
execute, and that the subroutines are typically not very general and may be 
difficult to understand or use. Some sequences of instructions may even be 
implemented as subroutines in a monitor or in other systems programs that are 
always resident. Then you can replace those sequences with calls to the systems 
program as long as the return is handled properly. 

Some of the methods that reduce execution time also reduce memory usage. 
In particular, using page 0, reorganizing loops, working backward through arrays, 
incrementing 16-bit quantities, operating directly on memory, and using special 
instructions such as CPX, CPY, and BIT reduce both execution time and 
memory usage. Of course, using in-line code rather than loops and subroutines 
reduces execution time but increases memory usage. 

Lookup tables generally use extra memory but save execution time. Some 
ways that you can reduce their memory requirements are by eliminating inter- 
mediate values and interpolating the results,?.? eliminating redundant values 
with special tests, and reducing the range of input values. Often you will find that 
a few prior tests or restrictions will greatly reduce the size of the required table. 
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Chapter 2 Implementing 
Additional Instructions 
And Addressing Modes 


This chapter shows how to implement instructions and addressing modes that 
are not included in the 6502's instruction set. Of course, no instruction set can 
ever include all possible combinations. Designers must make choices based on 
how many operation codes are available, how easily an additional combination 
could be implemented, and how often it would be used. A description of addi- 
tional instructions and addressing modes does not imply that the basic instruction 
set is incomplete or poorly designed. 


We concentrate our attention on additional instructions and addressing modes 
that are 


* Obvious parallels to those included in the instruction set 


- Described in the draft Microprocessor Assembly Language Standard (IEEE 
Task P694) 


* Discussed in Volume 1 of An Introduction to Microcomputers! 
- Implemented on other microprocessors, especially ones that are closely 
related or partly compatible.? > 


This chapter should be of particular interest to those who are familiar with the 
assembly languages of other computers. 


INSTRUCTION SET EXTENSIONS 


In describing extensions to the instruction set, we follow the organization sug- 
gested in the draft standard for IEEE Task P694.* We divide instructions into the 
following groups (listed in the order in which they are discussed): arithmetic, 
logical, data transfer, branch, skip, subroutine call, subroutine return, and 
miscellaneous. Within each type of instruction, we discuss operand types in the 
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following order: byte (8-bit), word (16-bit), decimal, bit, nibble or digit, and 
multiple. In describing addressing modes, we use the following order: direct, 
indirect, immediate, indexed, register, autopreincrement, autopostincrement, 
autopredecrement, autopostdecrement, indirect preindexed (also called prein- 
dexed or indexed indirect), and indirect postindexed (also called postindexed or 
indirect indexed). 


ARITHMETIC INSTRUCTIONS 


In this group, we consider addition, addition with carry, subtraction, subtrac- 
tion in reverse, subtraction with carry (borrow), increment, decrement, multi- 
plication, division, comparison, two’s complement (negate), and extension. 
Instructions that do not obviously fall into a particular category are repeated for 
convenience. 


Addition Instructions 
(Without Carry) 


1. Add memory location ADDR to accumulator. 


CLC ІСҺЕАВ CARRY 
ADC ADDR ;(A) = (A) + (ADDR) 


The same approach works for all addressing modes. 
2. Add VALUE to accumulator. 


CLC ;CLEAR CARRY 
ADC #VALUE ; (A) = (A) + VALUE 


3. Add Carry to accumulator. 
ADC #0 ; (A) = (A) + 0 + CARRY 


4. Decimal add memory location ADDR to accumulator. 


SED ;ENTER DECIMAL MODE 

CLC ;CLEAR CARRY 

ADC ADDR ; (A) = (A) + (ADDR) IN DECIMAL 
CLD ; LEAVE DECIMAL MODE 


A more general approach restores the original value of the D flag; that is, 


PHP ; SAVE OLD D FLAG 

SED ;ENTER DECIMAL MODE 

CLC ; CLEAR CARRY 

ADC ADDR ; (A) = (A) + (ADDR) IN DECIMAL 


PLP ; RESTORE OLD D FLAG 
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Note that restoring the status register destroys the carry from the addition. 
5. Decimal add VALUE to accumulator. 


SED ;ENTER DECIMAL MODE 

CLC ;CLEAR CARRY 

ADC #VALUE ; (A) = (A) + VALUE IN DECIMAL 
CLD ;LEAVE DECIMAL MODE 


6. Decimal add Carry to accumulator. 


SED ;ENTER DECIMAL MODE 
ADC #0 : (А) = (А) + CARRY IN DECIMAL 
CLD ;LEAVE DECIMAL MODE 


7. Add index register to accumulator (using memory location ZPAGE). 


STX 
CLC 
ADC 


2 РАСЕ ;SAVE INDEX REGISTER ON PAGE ZERO 
; CLEAR CARRY 
¿PAGE ; (A) = (A) + (X) 


This approach works for index register Y also. 


8. Add the contents of memory locations ADDR and ADDR+1 (MSB in 
ADDR +1) to memory locations SUM and SUM+1 (MSB in SUM +1). 


CLC 
LDA 
ADC 
STA 
LDA 
ADC 
STA 


;CLEAR CARRY 
SUM 
ADDR ;ADD LSB'S 
SUM 
SUM+1 ;ADD MSB'S WITH CARRY 
ADDR+1 
SUM+1 


9. Add 16-bit number VAL16 (VALI6M more significant byte, VAL16L less 
significant byte) to memory locations SUM and SUM +1 (MSB in SUM 1). 


CLC 
LDA 
ADC 
STA 
LDA 
ADC 
STA 


;CLEAR CARRY 
SUM ;ADD LSB'S WITHOUT CARRY 
#VAL16L 
SUM 
SUM+1 ;ADD MSB'S WITH CARRY 
#VAL16 
SUM+1 


Addition Instructions 
(With Carry) 


1. Add Carry to accumulator 


ADC 


#0 ; (A) = (A) + CARRY 
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2. Decimal add VALUE to accumulator with Carry. 


SED ; ENTER DECIMAL MODE 
ADC #VALUE ; (A) = (A) + VALUE + CARRY IN DECIMAL 
CLD ;LEAVE DECIMAL MODE 


3. Decimal add memory location ADDR to accumulator with Carry. 


SED ;ENTER DECIMAL MODE 
ADC ADDR ; (А) = (A) + (ADDR) + CARRY IN DECIMAL 
CLD ; LEAVE DECIMAL MODE 


4. Add the contents of memory locations ADDR and ADDR+1 (MSB in 
ADDR+1) to memory locations SUM and SUM+1 (MSB in SUM+1) with 


Carry. 


LDA SUM ;ADD LSB'S WITH CARRY 
ADC ADDR 
STA SUM 
LDA SUM+1 ;ADD MSB'S WITH CARRY 


ADC ADDR+1 

STA SUM+1 

5. Add 16-bit number VAL16 (VALI6M more significant byte, VAL16L less 
significant byte) to memory locations SUM and SUM+1 (MSB in SUM +1) with 
Carry. 


LDA SUM ;ADD LSB'S WITH CARRY 
ADC VALl6L 

STA SUM 

LDA SUM+1 ;ADD MSB'S WITH CARRY 


ADC ADDR+1 
STA SUM+1 


Subtraction Instructions 
(Without Borrow) 


1. Subtract memory location ADDR from accumulator. 


SEC ;SET INVERTED BORROW 
SBC ADDR ; (A) = (A) - (ADDR) 


The Carry flag acts as an inverted borrow, so it must be set to 1 if its value is to 
have no effect on the subtraction. 


2. Subtract VALUE from accumulator. 


SEC ;SET INVERTED BORROW 
SBC #VALUE ? (А) = (A) - VALUE 


3. Subtract inverse of borrow from accumulator. 


SBC #0 ; (А) = (A) - (1- CARRY) 


CHAPTER 2: IMPLEMENTING ADDITIONAL INSTRUCTIONS AND ADDRESSING MODES 77 


The result is (A) —1 if Carry is 0 and (A) if Carry is 1. 
4. Decimal subtract memory location ADDR from accumulator. 


SED ;ENTER DECIMAL MODE 

SEC ;SET ‘INVERTED BORROW 

SBC ADDR ; (A) = (A) - (ADDR) IN DECIMAL 
CLD ;LEAVE DECIMAL MODE 


The Carry flag has the same meaning in the decimal mode as in the binary mode. 
5. Decimal subtract VALUE from accumulator. 


SED ; ENTER DECIMAL MODE 

SEC ;SET INVERTED BORROW 

SBC $VALUE ; (A) = (A) - VALUE IN DECIMAL 
CLD ;LEAVE DECIMAL MODE 


6. Subtract the contents of memory locations ADDR and ADDR +1 (MSB in 
ADDR +1) from memory locations DIFF and DIFF+1 (MSB in DIFF+1). 


LDA DIFF ;SUBTRACT LSB'S WITH NO BORROW 
SEC 

SBC ADDR 

STA DIFF 

LDA DIFF+1 ;SUBTRACT MSB'S WITH BORROW 
SBC ^ ADDR*l1 

STA DIFF +1 


7. Subtract 16-bit number VAL16 (VAL16M more significant byte, VAL16L 
less significant byte) from memory locations DIFF and DIFF+1 (MSB in 
DIFF+ 1). 


LDA DIFF ;SUBTRACT LSB'S WITH NO BORROW 
SEC 

SBC #VAL16L 

STA DIFF 

LDA ОТЕЕ+1 .; SUBTRACT MSB'S WITH BORROW 
SBC #VAL16M 


STA ОТЕЕ+1 
8 Decimal subtract inverse of borrow from accumulator. 


SED ;ENTER DECIMAL MODE 
SBC #0 ; (А) = (A) - (1-CARRY) IN DECIMAL 
CLD ;LEAVE DECIMAL MODE 
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Subtraction in Reverse 
Instructions 


1. Subtract accumulator from VALUE and place difference jn accumulator. 


EOR PSFF ;ONE'S COMPLEMENT A 
CLC 

ADC #1 ;TWO'S COMPLEMENT А 
CLC 

ADC #VALUE ;FORM -A + VALUE 

or | 

STA TEMP ;SAVE A TEMPORARILY 
LDA #VALUE ;FORM VALUE - A 

SEC 


SBC TEMP 
The Carry acts as an inverted borrow in either method; that is, the Carry is set to 
1 if no borrow is necessary. 


2. Subtract accumulator from the contents of memory location ADDR and 
place difference in accumulator. 


EOR +5ЕЕ ? ОМЕ "5 COMPLEMENT А 
CLC 

ADC #1 ; TWO'S COMPLEMENT А 
CLC 

ADC ADDR ;FORM -A + (ADDR) 
STA TEMP ;SAVE A TEMPORARILY 
LDA ADDR ;FORM (ADDR) - А 
SEC 


SBC TEMP 


3. Decimal subtract accumulator from VALUE and place difference in 
accumulator. 


SED ;ENTER DECIMAL MODE 
STA TEMP ;FORM VALUE - A 
LDA #VALUE 

SEC 

SBC TEMP 

CLD ;LEAVE DECIMAL MODE 


4. Decimal subtract accumulator from the contents of memory location 
ADDR and place difference in accumulator. 


SED ;ENTER DECIMAL MODE 
STA TEMP ;FORM (ADDR) - A 
LDA ADDR 

SEC 

SBC TEMP 


CLD ; LEAVE DECIMAL MODE 
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Subtraction with Borrow 
(Carry) Instructions 


]. Subtract inverse of borrow from accumulator. 
SBC #0 ; (A) = (A) - (1-CARRY) 


2. Decimal subtract VALUE from accumulator with borrow. 


SED ;ENTER DECIMAL MODE 
SBC #VALUE ; (A) = (A) - VALUE - BORROW IN DECIMAL 
CLD ;LEAVE DECIMAL MODE 


3. Decimal subtract memory location ADDR from accumulator with borrow. 


SED ;ENTER DECIMAL MODE 
SBC ADDR ; (А) = (A) - VALUE - BORROW IN DECIMAL 
CLD ;LEAVE DECIMAL MODE 


4. Subtract the contents of memory locations ADDR and ADDR+1 (MSBin 
ADDR +1) from memory locations DIFF and DIFF+1 (MSB in DIFF+1) with 
borrow. 


LDA DIFF ;SUBTRACT LSB'S WITH BORROW 
SBC ADDR 

STA DIFF 

LDA DIFF+1 ; SUBTRACT MSB'S WITH BORROW 
SBC ADDR+1 

STA ОТЕЕ+1 


5. Subtract 16-bit number VAL16 (VAL16M more significant byte, VAL16L 
less Significant byte) from memory locations DIFF and DIFF+1 (MSB in 
DIFF+1) with borrow. 


LDA DIFF ;SUBTRACT LSB'S WITH BORROW 
SBC VAL16L 

STA DIFF 

LDA ОТЕЕ+1 ;SUBTRACT MSB'S WITH BORROW 
SBC VAL16M 

STA ОТЕЕ+1 


Increment instructions 


1. Increment accumulator, setting the Carry flag if the result is zero. 


CLC CLEAR CARRY 

ADC #1 ; INCREMENT BY ADDING 1 
or 

SEC ;SET CARRY 


ADC $0 ; INCREMENT BY ADDING 1 
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2. Increment accumulator without affecting the Carry flag. 


TAX ;MOVE A TO X 
INX ;INCREMENT X 
TXA 


INX does not affect the Carry flag; it does, however, affect the Zero flag. 
3. Increment stack pointer. 


TSX ;MOVE S TO X 
INX ;THEN INCREMENT X AND RETURN VALUE 
TXS 
Or 
TAX ;SAVE А 
PLA ; INCREMENT STACK POINTER 
TXA ;RESTORE A 


Remember that PLA affects the Zero and Negative flags. 
4. Decimal increment accumulator (add 1 to A in decimal). 


SED ;ENTER DECIMAL MODE 
CLC . 

ADC #1 ; (A) = (A) + 1 DECIMAL 
CLD ;LEAVE DECIMAL MODE 


Remember that INC and DEC produce binary results even when the D flag is set. 


5. Increment contents of memory locations ADDR and ADDR+1 (MSB in 
ADDR+1). 


INC ADDR INCREMENT LSB 
BNE ` DONE 
INC АРррк+1 ;CARRY ТО MSB IF LSB GOES TO ZERO 
DONE NOP 
OT 
LDA ADDR ; INCREMENT LSB 
CLC 
ADC #1 
STA ADDR 
LDA ADDR+1 ;WITH CARRY TO MSB 
ADC #0 


STA ADDR+1 


The first alternative is clearly much shorter. 


6. Decimal increment contents of memory locations ADDR and ADDR+1 
(MSB in ADDR+1). 


SED ; ENTER DECIMAL MODE 
LDA ADDR ;ADD 1 TO LSB 
CLC 


ADC #1 
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STA ADDR 
BCC DONE 


LDA ADDR+1 ;CARRY TO MSB IF NECESSARY 
ADC #0 
STA ADDR+1 

DONE CLD ;LEAVE DECIMAL MODE 


INC produces a binary result even when the Decimal Mode flag is set. Note that 
we could eliminate the BCC instruction from the program without affecting the 
result, but the change would increase the average execution time. | 


Decrement Instructions 


1. Decrement accumulator, clearing the Carry flag if the result 15 FF... 


SEC ;SET INVERTED BORROW 

SBC #1 ;DECREMENT BY SUBTRACTING 1 
or 

CLC ;CLEAR INVERTED BORROW 

SBC #0 ;DECREMENT BY SUBTRACTING 1 
or 

CLC ;CLEAR CARRY 

ADC #5ЕЕ ;DECREMENT BY ADDING -1 


2. Decrement accumulator without affecting the Carry flag. 


TAX ;MOVE A TO X 
DEX ;DECREMENT X 
TXA 


DEX does not affect the Carry flag; it does, however, affect the Zero flag. 
3. Decrement stack pointer. 


TSX ;MOVE S TO X 
DEX ;THEN DECREMENT X AND RETURN VALUE 
TXS 


You can also decrement the stack pointer with PHA or PHP, neither of which 
affects any flags. 


4. Decimal decrement accumulator (subtract 1 from A in decimal). 


SED ;ENTER DECIMAL MODE 
SEC 

SBC #1 ; (A) = (A) - 1 DECIMAL 
CLD ;LEAVE DECIMAL MODE 


5. Decrement contents of memory locations ADDR and ADDR +1 (MSB іп 
ADDR+1). 
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LDA ADDR ;1S LSB ZERO? 

BNE DECLSB 

DEC ADDR+1 ;YES, BORROW FROM MSB 
DECLSB DEC ADDR ;BEFORE DECREMENTING LSB 


Decrementing a 16-bit number is significantly more difficult than incrementing 
one. In fact, incrementing is not only faster but also leaves the accumulator 
unchanged; of course, one could replace LDA with LDX, LDY, or the sequence 
INC, DEC. An alternative that uses no registers is 

INC ADDR ;IS LSB ZERO? 

DEC ADDR 

BNE DECLSB 


DEC ADDR+1 ;YES, BORROW FROM MSB 
DECLSB DEC ADDR ;BEFORE DECREMENTING LSB 


6. Decimal decrement contents of memory locations ADDR апа ADDR +1 
(MSB in ADDR +1). 


SED ENTER DECIMAL MODE 
LDA ADDR ; SUBTRACT l FROM LSB 
SEC 

SBC #1 


STA ADDR 
BCS DONE 


LDA ADDR+1 ;BORROW FROM MSB IF NECESSARY 
SBC #0 
STA ADDR+1 

DONE CLD ;LEAVE DECIMAL MODE 


DEC produces a binary result even when the Decimal Mode flag is set. Note that 
we could eliminate the BCS instruction from the program without affecting the 
result, but the change would increase the average execution time. 


Multiplication Instructions 


1. Multiply accumulator by 2. 
ASL A ;MULTIPLY BY SHIFTING LEFT 


The following version places the Carry (if any) in Y. 


LDY #0 ;ASSUME MSB = 0 

ASL A ;MULTIPLY BY SHIFTING LEFT 
BCC DONE 

INY ;AND MOVING CARRY TO Y 


DONE NOP 


2. Multiply accumulator by 3 (using ADDR for temporary storage). 
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STA ADDR ; SAVE A 
ASL A :2 ХА 
ADC ADDR ;3 ХА 


ASL A 


:2 ХА 
ASL A ;4 ХА 


We can easily extend cases 1, 2, and 3 to multiplication by other small integers. 
4. Multiply an index register by 2. 


TAX ;MOVE TO A 
ASL A ;MULTIPLY BY SHIFTING LEFT 
TXA ;RETURN RESULT 


5. Multiply the contents of memory locations ADDR and ADDR +1 (MSB in 
ADDR + 1) by 2. 


ASL ADDR ;MULTIPLY BY SHIFTING LEFT 
ROL ADDR+1 ;AND MOVING CARRY OVER TO MSB 


6. Multiply the contents of memory locations ADDR and ADDR +1 (MSB in 
ADDR + 1) by 4. 


ASL ADDR ;MULTIPLY BY SHIFTING LEFT 
ROL ADDR+1 ;AND MOVING CARRY OVER TO MSB 
ASL ADDR ;THEN MULTIPLY AGAIN 


ROL ADDR+1 


Eventually, of course, moving one byte to the accumulator, shifting the 
accumulator, and storing the result back in memory becomes faster than 
leaving both bytes in memory. 


Division Instructions 


1. Divide accumulator by 2 unsigned. 
LSR A ;DIVIDE BY SHIFTING RIGHT 
2. Divide accumulator by 4 unsigned. 


LSR A ;DIVIDE BY SHIFTING RIGHT 
LSR A 


3. Divide accumulator by 2 signed. 


TAX ; SAVE ACCUMULATOR 
ASL A ;MOVE SIGN TO CARRY 
TXA ;RESTORE ACCUMULATOR 


ROR A ¿SHIFT RIGHT BUT PRESERVE SIGN 
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The second instruction moves the original sign bit (bit 7) to the Carry flag, so the 
final rotate can preserve it. This is known as an arithmetic shift, since it preserves 
the sign of the number while reducing its magnitude. The fact that the sign bit is 
copied to the right is known as sign extension. 


4. Divide the contents of memory locations ADDR and ADDR+1 (MSB in 
ADDR +1) by 2 unsigned. 


LSR ADDR+1 ;DIVIDE BY SHIFTING RIGHT 
ROR ADDR ;AND MOVING CARRY OVER TO LSB 


5. Divide the contents of memory locations ADDR and ADDR +1 (MSB in 
ADDR + 1) by 2 signed. 


LDA ADDR+1 ;MOVE SIGN TO CARRY 

ASL A 

ROR ADDR+1 ;DIVIDE BY SHIFTING RIGHT WITH SIGN 
ROR ADDR ;AND MOVING CARRY OVER TO LSB 


Comparison Instructions 


1. Compare VALUE with accumulator bit by bit, setting each bit position that 
is different. 


EOR $VALUE 


Remember, the EXCLUSIVE OR of two bits is 1, if and only if the two bits are 
different. 


2. Compare memory locations ADRI and ADR1+1 (MSB in ADRI +1) with 
memory locations ADR2 and ADR2+1 (MSB in ADR2+1). Set Carry if the 
first operand is greater than or equal to the second one (that is, if ADRI and 
ADR1+1 contain a 16-bit unsigned number greater than or equal to the contents 
of ADR2 and ADR2- 1). Clear Carry otherwise. Set the Zero flag if the two 
operands are equal and clear it otherwise. 


LDA ADR1+1 ;COMPARE MSB'S 

CMP ADR2+1 

BCC DONE ;CLEAR CARRY, ZERO IF 2ND IS LARGER 
BNE DONE ;SET CARRY, CLEAR ZERO IF 1ST LARGER 
LDA ADRI ;IF MSB'S EQUAL, COMPARE LSB'S 

CMP ADR2 ;CLEAR CARRY IF 2ND IS LARGER 


DONE NOP 


3. Compare memory locations ADR1 and ADR1+1 (MSBin АОК + 1) with 
the 16-bit number VAL16 (VAL16M more significant byte, VAL16L less signifi- 
cant byte). Set Carry if the contents of АБК] and ADRI- 1 are greater than or 
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equal to VAL16 in the unsigned sense. Clear Carry otherwise. Set the Zero flag if 
the contents of ADR1 and ADR1+1 are equal to VAL16, and clear іі otherwise. 


LDA ADR1+1 ;COMPARE MSB'S 
CMP #VAL1 6M 
BCC DONE ;CLEAR CARRY, ZERO IF VAL16 LARGER 
BNE DONE ;SET CARRY, CLEAR ZERO IF DATA LARGER 
LDA ADR1 ;IF MSB'S EQUAL, COMPARE LSB'S 
CMP #VAL16L ;CLEAR CARRY IF VAL16 LARGER 

DONE NOP 


4. Compare memory locations ADR1 and ADR1+1 (MSBin ADR1+1) with 
memory locations ADR2 and ADR2+1 (MSB in ADR2+1). Set Carry if the 
first operand is greater than or equal ѓо ће second one in the unsigned sense. 


LDA ADR1 ;COMPARE LSB'S 
CMP ADR2 
LDA ADR1+1 ;SUBTRACT MSB'S WITH BORROW 


SBC ADR2+1 


We use SBC on the more significant bytes in order to include the borrow from the 
less significant bytes. This sequence destroys the value in A and sets the Zero flag 
only from the final subtraction. 


5. Compare memory locations ADR1 and ADR1 +1 (MSBin ADR1 +1) with 
the 16-bit number VAL16 (VALI6M more significant byte, VAL16L less signifi- 
cant byte). Set Carry if the contents of ADR1 and ADR1+1 are greater than or 
equal to VAL16 in the unsigned sense. 


LDA ADR1 ;COMPARE LSB'S 
CMP VAL16L 
LDA ADR1+1 ;SUBTRACT MSB'S WITH BORROW 


SBC VAL16M 


If you want to set the Carry if the contents of ADR1 and ADRI- 1 are greater 
than VAL16, perform the comparison with VAL16+1. 


6. Compare stack pointer with the contents of memory location ADDR. Set 
Carry if the stack pointer is greater than or equal to the contents of the memory 
location in the unsigned sense. Clear Carry otherwise. Set the Zero flag if the two 
values are equal and clear it otherwise. 


TSX ;MOVE STACK POINTER TO X 
CPX ADDR ;AND THEN COMPARE 


7. Compare stack pointer with the 8-bit number VALUE. Set Carry if the 
stack pointer is greater than or equal to VALUE in the unsigned sense. Clear 
Carry otherwise. Set the Zero flag if the two values are equal and clear it other- 
wise. | | 


TSX ;MOVE STACK POINTER TO X 
CPX #VALUE ;AND THEN COMPARE 
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8. Block comparison. Compare accumulator with memory bytes starting at 
address BASE and continuing until either a match is found (indicated by 
Carry — 1) or until a byte counter in memory location COUNT reaches zero (indi- 
cated by Carry =0). 


LDY COUNT ; GET COUNT 

BEQ NOTFND ;EXIT IF COUNT IS ZERO 

LDX $0 ;START INDEX AT ZERO 
CMPBYT CMP BASE, X ;CHECK CURRENT BYTE 


BEQ DONE ;DONE IF MATCH FOUND (CARRY = 1) 
INX ;OTHERWISE, PROCEED TO NEXT BYTE 
DEY 
BNE CMPBYT 
NOTFND CLC 
DONE NOP 


;zIF ANY ARE LEFT 
;OTHERWISE, EXIT CLEARING CARRY 


Remember, comparing two equal numbers sets the Carry flag. 


Two's Complemient 
(Negate) Instructions 


]. Negate accumulator. 


EOR #5ЕЕ ;ONE'S COMPLEMENT 
CLC 
ADC #1 ; TWO'S8 COMPLEMENT 


The two's complement is the one's complement plus 1. 


STA TEMP ;ALTERNATIVE IS 0 - (A) 
LDA #0 

SEC 

SBC TEMP 


2. Negate memory location ADDR. 


LDA $0 ;FORM 0 - (ADDR) 
SEC 

SBC ADDR 

STA ADDR 


3. Negate memory locations ADDR and ADDR+1 (MSB in ADDR +1). 


LDA ADDR ;ONE'S COMPLEMENT LSB 

EOR #$ЕЕ 

CLC ;ADD 1 FOR TWO'S COMPLEMENT 

ADC #1 

STA ADDR 

LDA ADDR+1 ;ONE'S COMPLEMENT MSB 

EOR #5ЕЕ 

ADC #0 ;ADD CARRY FOR TWO'S COMPLEMENT 
STA ADDR+1 
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Or 
LDA $0 ;FORM 0 - (ADDR+1) (ADDR) 
SEC 
SBC ADDR ;SUBTRACT LSB'S WITHOUT BORROW 
STA ADDR 
LDA #0 ;SUBTRACT MSB'S WITH BORROW 


SBC Аррк+1 
STA ADDR+1 


4. Nine’s complement accumulator (that is, replace A with 99— A). : 


STA TEMP ;FORM 99-A 
LDA #599 
SEC 


SBC TEMP 


There is no need to bother with the decimal mode, since 99- А is always a valid 
BCD number if A originally contained a valid BCD number. 


5. Ten's complement accumulator (that is, replace A with 100— A). 


SED ; ENTER DECIMAL MODE 
STA TEMP ;FORM 100-A 

LDA $0 

SEC 

SBC TEMP 

CLD ;LEAVE DECIMAL MODE 


Extend Instructions 


1. Extend accumulator to a 16-bit unsigned number in memory locations 
ADDR and ADDR- 1 (MSB in ADDR + 1). 


STA ADDR ; 8-BIT MOVE 


LDA #0 ;EXTEND TO 16 BITS WITH O'S 
STA ADDR+1 


2. Extend accumulator to a 16-bit signed number in memory locations ADDR 
апа ADDR+1 (MSB in ADDR +1). 


STA ADDR ;8-BIT MOVE 

ASL A . фМОУЕ SIGN BIT TO CARRY 
LDA #ЅЕЕ ; (A) = -1 + SIGN ВІТ 
ADC $0 

EOR %5ЕЕ ;(A) = -SIGN BIT 

STA АРрв+1 ;SET MSB TO -SIGN BIT 


The result of the calculation is — (C 1 --SIGN BIT) – 1 = —SIGN BIT. That is, 
(ADDR +1) = 00if A was positive and FF, if A was negative. An alternative is 
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STA ADDR ; 8-BIT MOVE 

LDX #5ЕЕ ; (X) = -1 

ASL A 

BCS STRSGN 

INX ; (X) = -1+(1 - SIGN BIT) = -SIGN BIT 
STRSGN STX ADDR+1 ;SET MSB TO -SIGN BIT 


3. Extend bit 0 of accumulator across entire accumulator; that is, (A) = 00 if 
bit 0 = Oand ЕЕ if bit 0 = 1. 


LSR A ;CARRY = BIT 0 
LDA #5ЕЕ ; (А) = -1 + BIT 0 
ADC #0 

ЕОК #5ЕЕ ; (А) = -BIT 0 


As in case 2, the result we want is — 1 if the specified bit is 1 and 0 if the specified 
bit is 0. That is, we want the negative of the original bit value. The sequence LDA 
+$ЕЕ, ADC +0 obviously produces the result —1-- Carry. The one's comple- 
ment then gives us the negative of what we had minus 1 (or 1—Carry—1 = 
— Carry). 


4. Sign function. Replace the value in the accumulator by 00 if it is positive and 
by ЕЕ if it is negative. 


ASL A ;MOVE SIGN BIT TO CARRY 
LDA #5ЕЕ ; (A) = -1 + SIGN BIT 
ADC #0 

EOR #5ЕЕ ? (А) » -SIGN BIT 


5. Sign function of a memory location. Set accumulator to 00 if memory loca- 
tion ADDR is positive and to ЕЕ if it is negative. 


LDX #5ЕЕ ;ASSUME NEGATIVE 

LDA ADDR ;1S (ADDR) POSITIVE? 
BMI DONE 

INX ;YES, SET SIGN TO ZERO 


DONE TXA 
The approach shown in case 4 can also be used. 


LOGICAL INSTRUCTIONS 


In this group, we consider logical AND, logical OR, logical EXCLUSIVE OR, 
logical NOT (complement), shift, rotate, and test instructions. 


Logical AND Instructions 


1. Clear bit of accumulator. 
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AND #MASK ;CLEAR BIT BY MASKING 


MASK has 0 bits in the positions to be cleared and 1 bits in the positions that are 
to be left unchanged. For example, 


AND #%11011011 ;CLEAR BITS 2 AND 5 


Remember, logically ANDing a bit with 1 leaves it unchanged. 


2. Bit test-set the flags according to the value of a bit of memory location 
ADDR. 


Bits 0 through 5 


LDA #MASK 
BIT ADDR ;TEST BIT OF ADDR 


MASK should have a 1 in the position to be tested and Os everywhere else. The 
Zero flag will be set to 1 if the bit tested is 0 and to 0 if the bit tested is 1. 


Bits 6 or 7 


BIT ADDR ;TEST BITS 6 AND 7 OF ADDR 


This single instruction sets the Negative flag to bit 7 of ADDR and the Overflow 
flag to bit 6 of ADDR, regardless of the value in the accumulator. Note that the 
flags are not inverted as the Zero flag is in normal masking. 


3. Logical AND immediate with condition codes (flags). Logically AND a 
byte of immediate data with the contents of the status register, clearing those 
flags that are logically ANDed with Os. This instruction is implemented on the 
6809 microprocessor. 


PHP ;MOVE STATUS TO A 

PLA 

AND #MASK ;CLEAR FLAGS 

PHA ;RETURN RESULT TO STATUS 
PLP 


Logical OR Instructions 


1. Set bit of accumulator. 


ORA $MASK ;SET BIT BY MASKING 


MASK has 1 bits in the positions to be set and 0 bits in the positions that are to be 
left unchanged. For example, 


ORA $$00010010 ;SET BITS 1 AND 4 
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Remember, logically ORing a bit with 0 leaves it unchanged. 


2. Test memory locations ADDR and ADDR +1 for 0. Set the Zero flag if 
both bytes are 0. 


LDA ADDR ;TEST 16-BIT NUMBER FOR ZERO 
ORA ADDR+1 


The Zero flag is set if and only if both bytes of the 16-bit number are 0. The other 
flags are also changed. 


3. Logical OR immediate with condition codes (flags). Logically OR a byte of 
immediate data (MASK) with the contents of the status register, setting those 
flags that are logically ORed with 1s. This instruction is implemented on the 6809 
microprocessor. 


PHP ;MOVE STATUS TO A 

PLA 

ORA #MASK ;SET FLAGS 

PHA ;RETURN RESULT TO STATUS 
PLP 


Logical EXCLUSIVE OR 
Instructions 


1. Complement bit of accumulator. 
EOR #MASK , ;COMPLEMENT BIT BY MASKING 


MASK has 1 bits in the positions to be complemented and 0 bits in the positions 
that are to be left unchanged. For example, 


EOR #%11000000 ;COMPLEMENT BITS 6 AND 7 

Remember, logically EXCLUSIVE ORing a bit with 0 leaves it unchanged. 
2. Complement accumulator, setting flags. 
EOR £$11111111 ;COMPLEMENT ACCUMULATOR 


Logically EXCLUSIVE ORing the accumulator with all 1s inverts all the bits. 


3. Compare memory location ADDR with accumulator bit by bit, setting each 
bit position that is different. | 


EOR ADDR ;BIT-BY-BIT COMPARISON 


The EXCLUSIVE OR function is the same as а “по equal” function. Note that 
the Negative (Sign) flag is 1 if the two operands have different values in bit posi- 
tion 7. | 
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4. Add memory location ADDR to accumulator logically (i.e., without any 
carries between bit positions). 
EOR ADDR ; LOGICAL ADDITION 


The EXCLUSIVE OR function is also the same as a bit by bit sum with no carries. 
Logical sums are often used to form checksums and error-detecting or error-cor- 
recting codes. 


Logical NOT instructions 


1. Complement accumulator, setting flags. 
EOR #SFF ;COMPLEMENT ACCUMULATOR 


Logically EXCLUSIVE ORing with all 1s inverts all the bits. 

2. Complement bit of accumulator. 

EOR #MASK ;COMPLEMENT BIT BY MASKING 
MASK has 1 bits in the positions to be complemented and 0 bits in the positions 
that are to be left unchanged. For example, 

EOR $$01010001 ;COMPLEMENT BITS 0, 4, AND 6 


Remember, logically EXCLUSIVE ORing a bit with 0 leaves it unchanged. 


3. Complement a memory location. 


LDA ADDR 
EOR #SFF ; COMPLEMENT 
STA ADDR 


4. Complement bit 0 of a memory location. 


INC ADDR ;COMPLEMENT BY INCREMENTING 
or 
DEC ADDR ;COMPLEMENT BY DECREMENTING 
Either of these instructions may, of course, affect the other bits in the memory 


location. The final value of bit 0, however, will surely be O if it was originally 1 
and 1 if it was originally O. 


5. Complement digit of accumulator. 
* Less significant digit 
EOR #%00001111 ;COMPLEMENT LESS SIGNIFICANT 4 BITS 


- More significant digit 
EOR $$11110000  ;COMPLEMENT MORE SIGNIFICANT 4 BITS 
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These procedures are useful if the accumulator contains a decimal digit in nega- 
tive logic (e.g., the input from a typical ten-position rotary or thumbwheel 
switch). 


6. Complement Carry flag. 


ROR A ;MOVE CARRY TO BIT 7 OF A 
EOR #SFF ;COMPLEMENT ALL OF A 
ROL A ;MOVE COMPLEMENTED CARRY BACK 


Other combinations such as ROL, EOR, ROR, or ROR, EOR, ASL will work just 
as well. We could leave the accumulator intact by saving it in the stack originally 
and restoring it afterward. 

An alternative that does not affect the accumulator is 


BCC SETCAR 


CLC ;CLEAR CARRY IF IT WAS SET 
BCC DONE 
SETCAR SEC ;SET CARRY IF IT WAS CLEARED 


DONE NOP 


Shift Instructions 


1. Shift accumulator right arithmetically, preserving the sign bit. 


TAX ? SAVE ACCUMULATOR 

ASL A ;MOVE SIGN BIT TO CARRY 

TXA 

ROR A ;SHIFT RIGHT, PRESERVING SIGN 


We need a copy of the sign bit for an arithmetic shift. Of course, we could use a 
memory location for temporary storage instead of the index register. 

2. Shift memory locations ADDR and ADDR +1 (MSB in ADDR +1) left 
logically. 


ASL ADDR ;SHIFT LSB LEFT LOGICALLY 
ROL ADDR+1 ;AND MOVE CARRY OVER TO MSB 


The key point here is that we must shift the more significant byte circularly (i.e., 
rotate it). The first 8-bit shift moves one bit (the least significant bit for a right 
shift and the most significant bit for a left shift) to the Carry. The 8-bit rotate then 
moves that bit from the Carry into the other half of the word. 


3. Shift memory locations ADDR and ADDR +1 (MSB in ADDR +1) right 
logically. 


LSR ADDR+1 ;SHIFT MSB RIGHT LOGICALLY 
ROR ADDR ;AND MOVE CARRY OVER TO LSB 
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4. Shift memory locations ADDR and ADDR +1 (MSB in ADDR +1) right 


arithmetically. 


LDA 
ASL 
ROR 
ROR 


ADDR+1 ;MOVE SIGN BIT TO CARRY 

A 

ADDR+1 ;SHIFT MSB RIGHT ARITHMETICALLY 
ADDR ;AND MOVE CARRY OVER TO LSB 


5. Digit shift memory locations ADDR and ADDR +1 (MSB in ADDR +1) 
left; that is, shift the 16-bit number left 4 bits logically. 


LDX 
LDA 
SHFT1 ASL 
ROL 
DEX 
BNE 
STA 


#4 ;NUMBER OF SHIFTS = 4 

ADDR ;MOVE LSB TO A 

A ;SHIFT LSB LEFT LOGICALLY 
ADDR+1 ;AND MOVE CARRY OVER TO MSB 
SHFT1 ;COUNT BITS 

ADDR ;RETURN LSB TO ADDR 


A shorter but slower version that does not use the accumulator is 


LDX 
SHFTl ASL 
ROL 
DEX 
BNE 


#4 ;NUMBER OF SHIFTS = 4 

ADDR ;SHIFT LSB LEFT LOGICALLY 
ADDR+1 ;AND MOVE CARRY OVER TO MSB 
SHFT1 ;COUNT SHIFTS 


6. Digit shift memory locations ADDR and ADDR+1 (MSB in ADDR+1) 
right; that is, shift the 16-bit number right 4 bits logically. 


LDX 
LDA 
SHFT1 LSR 
ROR 
DEX 
BNE 
STA 


#4 ;NUMBER OF SHIFTS = 4 

ADDR ;MOVE LSB TO A 

ADDR+1 ;SHIFT MSB RIGHT LOGICALLY 
A ;AND MOVE CARRY OVER TO LSB 
SHFT1 ;COUNT SHIFTS 

ADDR ;RETURN LSB TO ADDR 


A shorter but slower version that does not use the accumulator is 


LDX 
SHFT1 LSR 
ROR 
DEX 
BNE 


#4 ;NUMBER OF SHIFTS = 4 
ADDR+1 ;SHIFT MSB RIGHT LOGICALLY 
ADDR ;AND MOVE CARRY OVER TO LSB 
SHFT1 ;COUNT SHIFTS 


7. Normalize memory locations ADDR and ADDR+1 (MSB in ADDR +1); 
that is, shift the 16-bit number left until the most significant bit is 1. Do not shift 
at all if the entire number is 0. 


ADDR+1 ;EXIT IF NUMBER ALREADY NORMALIZED 
DONE 

ADDR ? ОК IF ENTIRE NUMBER IS ZERO 

DONE 


ADDR ;MOVE LSB TO A 
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SHIFT ASL A ;SHIFT LSB LEFT LOGICALLY 1 BIT 
ROL ADDR+1 ;AND MOVE CARRY OVER TO MSB 
BPL SHIFT ;CONTINUE UNTIL MSB IS 1 
STA ADDR ;RETURN LSB TO ADDR 


DONE NOP 


Rotate Instructions 


A rotate through or with Carry acts as if the data were arranged in a circle with 
its least significant bit connected to its most significant bit through the Carry flag. 
A rotate without Carry differs in that it acts as if the least significant bit of the data 
were connected directly to the most significant bit. 


1. Rotate memory locations ADDR and ADDR +1 (MSB in ADDR + 1) right 
1 bit position through Carry. 


ROR ADDR+1 ;ROTATE BIT 8 TO CARRY 
ROR ADDR ;AND ON IN TO BIT 7 


2. Rotate memory locations ADDR and ADDR+1 (MSB in ADDR +1) right 
1 bit position without Carry. 


LDA ADDR ;CAPTURE BIT 0 IN CARRY 

ROR A 

ROR ADDR+1 ;ROTATE MSB WITH BIT O ENTERING AT LEFT 
ROR ADDR ;ROTATE LSB 


3. Rotate memory locations ADDR and ADDR+1 (MSB in ADDR +1) left 
1 bit position through Carry. 
ROL ADDR ; ROTATE BIT 7 TO CARRY 
ROL ADDR+1 ;AND ON IN TO BIT 8 


4. Rotate memory locations ADDR and ADDR +1 (MSB in ADDR +1) left 
1 bit position without Carry. 


LDA ADDR+1 ;CAPTURE BIT 15 IN CARRY 


ROL A 
ROL ADDR ;ROTATE LSB WITH BIT 15 ENTERING AT RIGHT 


ROL ADDR+1 


Test Instructions 


1. Test accumulator. Set flags according to the value in the accumulator with- 
out changing that value. 


TAX ;MOVE AND SET FLAGS 
or 


TAY ;MOVE AND SET FLAGS 
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The following alternative does not affect either index register. 

CMP #0 ; TEST ACCUMULATOR 
The instructions AND + ЕЕ ог ORA #0 would also do the job without affecting 
the Carry (CMP +0 sets the Carry flag). 


2. Test index register. Set flags according to the value in an index register 
without changing that value. 
CPX #0 ;CHECK VALUE IN INDEX REGISTER 


. 3. Test memory location. Set flags according to the value in memory location 
ADDR without changing that value. 


INC ADDR ;CHECK VALUE IN MEMORY LOCATION 
DEC ADDR 


4. Test a pair of memory locations. Set the Zero flag according to the value in 
memory locations ADDR and ADDR +1. 


LDA ADDR ; TEST 16-BIT NUMBER FOR ZERO 
ORA ADDR+1 


This sequence sets the Zero flag to 1 if and only if both bytes of the 16-bit number 
are 0. This procedure can readily be extended to handle numbers of any length. 


5. Test bit of accumulator. 
AND #MASK >TEST BIT BY MASKING 


MASK has a 1 bit in the position to be tested and 0 bits elsewhere. The instruc- 
tion sets the Zero flag to 1 if the tested bit position contains 0 and to 0 if the tested 
bit position contains 1. For example, 


AND #300001000 ;TEST BIT 3 BY MASKING 


The result is 0 if bit 3 of A is 0 and 00001000 (binary) if bit 3 of A is 1. So the Zero 
flag ends up containing the logical complement of bit 3. 


6. Compare memory location ADDR with accumulator bit by bit. Set each 
each bit position that is different. 


EOR ADDR ;BIT-BY-BIT COMPARISON 


The EXCLUSIVE OR function is the same as а “по equal” function. 


DATA TRANSFER INSTRUCTIONS 


In this group, we consider load, store, move, exchange, clear, and set instruc- 
tions. 
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Load Instructions 


1. Load accumulator indirect from address in memory locations PGZRO and 
PGZRO- 1. 


LDY #0 ;AVOID INDEXING 
LDA (PGZRO),Y ;LOAD INDIRECT INDEXED 


The only instruction that has true indirect addressing is JMP. However, you can 
produce ordinary indirect addressing by using the postindexed (indirect indexed) 
addressing mode with index register Y set to 0. 

An alternative approach is to clear index register X and use preindexing. 

LDX #0 ;AVOID INDEXING 

LDA (PGZRO,X) ;LOAD INDEXED INDIRECT 
The advantage of the first approach is that one can index from the indirect 
address with Y. For example, we could load addresses POINTL and POINTH 
indirectly from the address in memory locations PGZRO and PGZRO-1 as 
follows: 


LDY #0 ;AVOID INDEXING 

LDA (PGZRO) ,Y ;GET LSB OF ADDRESS INDIRECTLY 
STA POINTL 

INY ;GET MSB OF ADDRESS INDIRECTLY 
LDA (PGZRO) , Y 


STA POINTH 


2. Load index register X indirect from address in memory locations PGZRO 
and PGZRO +1. 


LDY #0 ;AVOID INDEXING 
LDA (PGZRO),Y ;LOAD ACCUMULATOR INDIRECT INDEXED 
TAX 


Only the accumulator can be loaded using the indirect modes, but its contents can 
be transferred easily to an index register. 


3. Load index register Y indirect from address in memory locations PGZRO 
and PGZRO- 1. 


LDX #0 ;AVOID INDEXING 

LDA (PGZRO,X) ;LOAD ACCUMULATOR INDEXED INDIRECT 
TAY 

4. Load stack pointer immediate with the 8-bit number VALUE. 
LDX #VALUE ; INITIALIZE STACK POINTER 

TXS 


Only index register X can be transferred to or from the stack pointer. 


5. Load stack pointer direct from memory location ADDR. 


LDX ADDR ; INITIALIZE STACK POINTER 
TXS 
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6. Load status register immediate with the 8-bit number VALUE. 


LDA VALUE ;GET THE VALUE 
PHA ;TRANSFER IT THROUGH STACK 
PLP 


This procedure allows the user of a computer system to initialize the status 
register for debugging or testing purposes. 


7. Load status register direct from memory location ADDR. 


LDA ADDR ;GET THE INITIAL VALUE 

PHA ;TRANSFER IT THROUGH STACK 

PLP 

8. Load index register from stack. 

PLA ;TRANSFER STACK TO X THROUGH A 
TAX 


If you are restoring values from the stack, you must restore X and Y before A, 
since there is no direct path from the stack to X or Y. 


9. Load memory locations PGZRO and PGZRO+ 1 (a pointer on page 0) with 
ADDR (ADDRH more significant byte, ADDRL less significant byte). 


LDA #ADDRL ; INITIALIZE LSB 
STA PGZ RO 
LDA #ADDRH ;INITIALIZE MSB 


STA PGZRO+1 


There is no simple way to initialize the indirect addresses that must be saved on 
page 0. 


Store Instructions 


l. Store accumulator indirect at address in memory locations PGZRO and 
PGZRO +1. 


LDY $0 ; AVOID INDEXING 

STA (PGZRO) ,Y ;STORE INDIRECT INDEXED 
or 

LDX #0 ;AVOID INDEXING 

STA (PGZRO, X) ;STORE INDEXED INDIRECT 


2. Store index register X indirect at address in memory locations PGZRO and 
PGZRO +1. 


LDY #0 ;AVOID INDEXING 
TXA ;STORE X INDIRECT INDEXED THROUGH A 
STA (PGZRO) ,Y 


J. Store index register Y indirect at address in memory locations PGZRO and 
PGZRO +1. 
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LDX $0 ;AVOID INDEXING 
TYA ;STORE Y INDEXED INDIRECT THROUGH A 
STA (PGZRO,X) 


4. Store stack pointer in memory location ADDR. 


TSX ;STORE S THROUGH X 
STX ADDR 


5. Store status register in memory location ADDR. 
PHP ;STORE P THROUGH STACK AND A 


PLA 
STA ADDR 


6. Store index register in stack. 


TXA ;STORE X (OR Y) IN STACK VIA A 
PHA 


If you are saving values in the stack, you must save A before X or Y, since there 
is no direct path from X or Y to the stack. 


Move Instructions 


]. Transfer accumulator to status register. 


PHA ;TRANSFER THROUGH STACK 
PLP 


2. Transfer status register to accumulator. 


PHP ;TRANSFER THROUGH STACK 
PLA 


3. Transfer index register X to index register Y. 


TXA ;TRANSFER THROUGH ACCUMULATOR 
TAY 


or without changing the accumulator 


STX TEMP ;TRANSFER THROUGH MEMORY 
LDY TEMP 


4. Transfer accumulator to stack pointer. 


TAX ;TRANSFER THROUGH X REGISTER 
TXS 


5. Transfer stack pointer to accumulator. 


TSX ;TRANSFER THROUGH X REGISTER 
TXA 
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6. Move the contents of memory locations ADDR and ADDR+1 (MSB in 
ADDR +1) to the program counter. 


JMP (ADDR) ;JUMP INDIRECT 


Note that JMP with indirect addressing loads the program counter with the con- 
tents of memory locations ADDR and ADDR- 1; it acts more like LDA with 
direct addressing than like LDA with indirect (indexed) addressing. 


7. Block move. Transfer data from addresses starting at the one in memory 
locations SORCE and SORCE- 1 (on page 0) to addresses starting at the one in 
memory locations DEST and DEST--1 (on page 0). Register Y contains the 
number of bytes to be transferred. 


MOVBYT DEY ; TEST NUMBER OF BYTES 
LDA (SORCE) ,Y ;GET A BYTE FROM SOURCE 
STA (DEST) ,Y ;MOVE TO DESTINATION 
TYA 


BNE MOVBYT 


We assume here that the addresses do not overlap and that the initial value of Y is 
] or greater. Chapter 5 contains a more general block move. 

The program becomes simpler if we reduce the base addresses by 1. That is, let 
memory locations SORCE and SORCE- 1 contain an address one less than the 
lowest address in the source area, and let memory locations DEST and DEST +1 
contain an address one less than the lowest address in the destination area. Now 
we can exit when Y is decremented to 0. 


MOVBYT  LDA (SORCE) ,Y ;GET A BYTE FROM SOURCE 
STA (DEST) ,Y ;MOVE BYTE TO DESTINATION 
DEY 
BNE MOVBYT ;COUNT BYTES 


The 0 index value is never used. 


8. Move multiple (fill). Place the contents of the accumulator in memory 
locations starting at the one in memory locations PGZRO and PGZRO+1. 


FILBYT  DEY 


STA (PGZRO),Y ;FILL A BYTE 
INY 
DEY 
BNE FILBYT ;COUNT BYTES 


Chapter 5 contains a more general version. 
Here again we can simplify the program by letting memory locations PGZRO and 
PGZRO-+ 1 contain an address one less than the lowest address in the area to be 
filled. The revised program is 

FILBYT STA (PGZRO),Y  ;FILL A BYTE 


DEY 
BNE FILBYT ;COUNT BYTES 
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Exchange Instructions 


1. Exchange index registers X and Y. 


STX TEMP ;SAVE X 
TYA ;Y TO X 
TAX 

LDY TEMP ;X TO Y 

Or 

TXA ;SAVE X 
PHA 

TYA ;Y TO X 
TAX 

PLA ;X TO Y 
TAY 4 


Both versions take the same number of bytes (assuming TEMP is on page 0). Тһе 
second version is slower but reentrant. 


2. Exchange memory locations ADDRI and ADDR2. 


LDA ADDRI 
LDX ADDRZ2 
STX ADDR1 
STA ADDR2 


3. Exchange accumulator and top of stack. 


TAY ;SAVE А 

PLA ;GET TOP OF STACK 

TAX ;SAVE TOP OF STACK 
TYA 7A TO ТОР OF STACK 
PHA 

TXA ;TOP OF STACK TO A 


Clear Instructions 


1. Clear the accumulator. 
LDA #0 


The 6502 treats 0 like any other number. There are no special clear instructions. 


2. Clear an index register. 


LDX #0 
or 
LDY #0 
3. Clear memory location ADDR. 
LDA #0 


STA ADDR 
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Obviously, we could use X or Y as easily as A. 
4. Clear memory locations ADDR and АРОК + 1. 


LDA #0 
STA ADDR 
STA ADDR+1 


5. Clear bit of accumulator. 
AND #MASK ¿CLEAR BIT BY MASKING 


MASK has 0 bits in the positions to be cleared and 1 bits in the positions that are 
to be left unchanged. For example, 


AND $$10111110 ;CLEAR BITS 0 AND 6 OF А 


Logically ANDing a bit with 1 leaves it unchanged. 


Set Instructions 


1. Set the accumulator to ЕЕ, (all ones in binary). 
ГОА #$FF 
2. Set an index register to FF... 


LDX #SFF 


or 
LDY #SFF 


3. Set the stack pointer to FF... 


LDX #5ЕЕ 
TXS 


The next available location in the stack is at address 01FF,,. 
4. Set a memory location to FF... 


LDA #5ЕЕ 
STA ADDR 


5. Set bit of accumulator. 
ORA #MASK ;ЅЕТ BIT BY MASKING 


MASK has 1 bits in the positions to be set and 0 bits elsewhere. For example, 
ORA #%10000000 ;SET BIT 7 (SIGN BIT) 


Logically ORing a bit with 0 leaves it unchanged. 
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BRANCH (JUMP) INSTRUCTIONS 


Unconditional Branch Instructions 


1. Unconditional branch relative to DEST. 
CLC ;DELIBERATELY CLEAR CARRY 
BCC DEST ¿FORCE AN UNCONDITIONAL BRANCH 


You can always force an unconditional branch by branching conditionally on a 
condition that is known to be true. Some obvious alternatives are 


SEC 
BCS DEST 


Or 
LDA #0 
BEQ DEST 
Or 
LDA #1 


BNE DEST 


2. Jump indirect to address at the top of the stack. 
RTS | 


RTS is just an ordinary indirect jump in which the processor obtains the destina- 
tion from the top of the stack. Be careful, however, of the fact that the processor 
adds 1 to the address before proceeding. 


3. Jump indexed, assuming that the base of the address table is BASE and the 
index is in memory location INDEX. The addresses are arranged in the usual 
6502 manner with the less significant byte first.5 


- Using indirect addressing: 
LDA INDEX 


ASL A ;DOUBLE INDEX FOR 2-BYTE ENTRIES 
TAX 

LDA ВАЅЕ,Х ;GET LSB OF DESTINATION 

STA INDIR 

INX | 

LDA ВАЅЕ,Х ;GET MSB OF DESTINATION 

STA | INDIR+1 

JMP (INDIR) ;JUMP INDIRECT TO DESTINATION 


. Using the stack: 


LDA INDEX 

ASL A ;DOUBLE INDEX FOR 2-BYTE ENTRIES 
TAX 

LDA BASE+1,X ;GET MSB OF DESTINATION 

PHA 
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LDA BASE,X ;GET LSB OF DESTINATION 
PHA 
RTS ;JUMP INDIRECT TO DESTINATION OFFSET 1 


The second approach is faster but less straightforward. Note the following: 


1. You must store the more significant byte first since the stack is growing 
toward lower addresses. Thus the bytes end up in their usual order. 

2. Since RTS adds 1 to the program counter after loading it from the stack, the 
table entries must all be 1 less than the actual destination addresses for this 
method to work correctly. 

3. Documentation is essential, since this method uses RTS for the rather 
surprising purpose of transferring control to a subroutine, rather than from it. 
The mnemonic may confuse the reader, but it obviously does not bother the 
microprocessor. 


Conditional Branch Instructions 


1. Branch if zero. 
» Branch if accumulator contains zero. 


TAX ; TEST ACCUMULATOR 
BEQ DEST 

or 
CMP #0 ; TEST ACCUMULATOR 


BEQ DEST 
Either AND #$FF or ORA +0 will set the Zero flag if (A) =0 without affecting 
the Carry flag (CMP +0 sets Carry). 

- Branch if an index register contains 0. 


CPX $0 ;TEST INDEX REGISTER 
BEQ DEST 


The instruction TXA or the sequence INX, DEX can be used to test the contents 
of index register X without affecting the Carry flag (CPX +0 sets the Carry). 
TXA, of course, changes the accumulator. 
°. Branch if a memory location contains 0. 

INC ADDR ; TEST MEMORY LOCATION 

DEC ADDR 

BEQ DEST 
Or 


LDA ADDR ;TEST MEMORY LOCATION 
BEQ DEST 
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- Branch if a pair of memory locations (ADDR and ADDR + 1) both contain 


LDA ADDR ; TEST 16-BIT NUMBER FOR ZERO 
ORA Аррк +1 


BEQ DEST 


- Branch if a bit of the accumulator is zero. 


AND #MASK ;TEST BIT OF ACCUMULATOR 
BEQ DEST 
MASK has a 1 bit in the position to be tested and Os elsewhere. Note the inver- 
sion here; if the bit of the accumulator is a 0, the result is 0 and the Zero flag is set 
to 1. Special cases are 
Bit position 7 
ASL A ;MOVE BIT 7 TO CARRY 
BCC DEST 
Bit position 6 


ASL A ;MOVE ВІТ 6 TO NEGATIVE FLAG 
BPL DEST 


Bit position 0 


LSR A ;MOVE ВІТ 0 TO CARRY 
BCC DEST 


* Branch if a bit of a memory location is 0. 


LDA #MASK 


BIT ADDR ;TEST BIT OF MEMORY 
BEQ DEST 


MASK has a 1 bit in the position to be tested and Os elsewhere. Special cases are 
Bit position 7 


BIT ADDR = TEST MEMORY 

BPL DEST ;BRANCH ON BIT 7 
Bit position 6 

BIT ADDR ; TEST MEMORY 
BVC DEST ;BRANCH ON BIT 6 


The BIT instruction sets the Negative flag from bit 7 of the memory location and 
the Overflow flag from bit 6, regardless of the contents of the accumulator. 

We can also use the shift instructions to test the bits at the ends, as long as we 
can tolerate changes in the memory locations. 

Bit position 7 


ASL ADDR ;TEST BIT 7 
BCC DEST 


Bit position 6 


ASL ADDR ;TEST BIT 6 
BPL DEST 
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Bit position 0 


LSR ADDR ;TEST BIT 0 
BCC DEST 


- Branch if the Interrupt Disable flag (bit 2 of the status register) is 0. 


PHP ;MOVE STATUS TO A 

PLA 

AND %%00000100 ;TEST INTERRUPT DISABLE 

BEQ DEST ;BRANCH IF INTERRUPTS ARE ON 


- Branch if the Decimal Mode flag (bit 3 of the status register) is 0. 


PHP ;MOVE STATUS TO A 

PLA 

AND %%00001000 ;TEST DECIMAL MODE FLAG 
BEQ DEST ;BRANCH IF MODE IS BINARY 


2. Branch if not 0. 
* Branch if accumulator does not contain 0. 


TAX ; TEST ACCUMULATOR 
BNE DEST 

Or 
CMP $0 ; TEST ACCUMULATOR 


BNE DEST 


“ Branch if an index register does not contain 0. 


CPX $0 ;TEST INDEX REGISTER 
BNE DEST 


- Branch if a memory location does not contain 0. 


INC ADDR ;TEST MEMORY LOCATION 
DEC ADDR 
BNE DEST 


Or 


LDA ADDR ;TEST MEMORY LOCATION 
BNE DEST 


“ Branch if a pair of memory locations (ADDR and ADDR +1) do not both 
contain O. 


LDA ADDR ; TEST 16-BIT NUMBER FOR ZERO 
ORA ADDR+1 
BNE DEST 


- Branch if a bit of the accumulator is 1. 


AND #MASK ;TEST ВІТ OF ACCUMULATOR 
BNE DEST 
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MASK has a 1 bit in the position to be tested and Os elsewhere. Note the inver- 
sion here; if the bit of the accumulator is a 1, the result is not 0 and the Zero flag 
is set to 0. Special cases are 


Bit position 7 


ASL A ;MOVE BIT 7 TO CARRY 
BCS DEST ;AND TEST CARRY 

Bit position 6 

ASL A ;MOVE BIT 6 TO SIGN 
BMI DEST ;AND TEST. SIGN 


Bit position 0 


LSR A ;MOVE BIT 0 TO CARRY 
BCS DEST ;AND TEST CARRY 


- Branch if a bit of a memory location is 1. 


LDA #MASK 
BIT ADDR ;TEST BIT OF MEMORY 
BNE DEST 


MASK has a 1 bit in the position to be tested and Os elsewhere. Special cases are 
Bit position 7 


BIT ADDR ;TEST BIT 7 OF MEMORY 
BMI DEST 


Bit position 6 


BIT ADDR ;TEST BIT 6 OF MEMORY 
BVS DEST 


The BIT instruction sets the Negative flag from bit 7 of the memory location and 
the Overflow flag from bit 6, regardless of the contents of the accumulator. 

We can also use the shift instructions to test the bits at the ends, as long as we 
can tolerate changes in the memory locations. 

Bit position 7 

ASL ADDR ;TEST BIT 7 OF MEMORY 

BCS DEST 


This alternative is slower than BIT by 2 clock cycles, since it must write the result 
back into memory. 
Bit position 6 


ASL ADDR ;TEST BIT 6 OF MEMORY 
BMI DEST 


Bit position 0 


LSR ADDR ; TEST BIT 0 OF MEMORY 
BCS DEST 
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- Branch if the Interrupt Disable flag (bit 2 of the status register) is 1. 


PHP ;MOVE STATUS TO A THROUGH STACK 

PLA 

AND $$00000100 ;TEST INTERRUPT DISABLE 

BNE DEST ;BRANCH IF INTERRUPTS ARE DISABLED 
- Branch if the Decimal Mode flag (bit 3 of the status register) is 1. 

PHP ;MOVE STATUS TO A THROUGH STACK 

PLA 

AND #%00001000 ;TEST DECIMAL MODE FLAG 

BNE DEST ;BRANCH IF MODE IS DECIMAL 


3. Branch if Equal. 
* Branch if (A) = VALUE. 


CMP #VALUE ;COMPARE BY SUBTRACTING 
BEQ DEST 


* Branch if (X) = VALUE. 


CPX #VALUE ;COMPARE BY SUBTRACTING 
BEQ DEST | 

Two special cases are 

Branch if (X) = 1 


DEX 
BEQ DEST 


Branch if (X) = FF,,. 


INX 
BEQ DEST 


- Branch if (A) = (ADDR). 


CMP ADDR ;COMPARE BY SUBTRACTING 
BEQ DEST 


· Branch if (X) = (ADDR). 


CPX ADDR ;COMPARE BY SUBTRACTING 
BEQ DEST 


. Branch if the contents of memory locations PGZRO and PGZRO + 1 equal 
VAL16 (VALIGL less significant byte, VAL16M more significant byte). 


LDA PGZRO+1 ; COMPARE MSB'S 
CMP #VAL16M 
BNE DONE 
LDA PGZ RO ;AND LSB'S ONLY IF NECESSARY 
CMP #VAL16L 
BEQ DEST 
DONE NOP 


* Branch if the contents of memory locations PGZRO and PGZRO + 1 equal 
those of memory locations LIML and LIMH. 
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LDA PGZRO+1 

CMP LIMH 

BNE DONE 

LDA PGZ RO 

CMP LIML 

BEQ DEST 
DONE NOP 


;COMPARE MSB'S 


;AND LSB'S ONLY IF NECESSARY 


Note: Neither of the next two sequences should be used to test for stack over- 
flow or underflow, since intervening instructions (for example, a single JSR or 
RTS) could change the stack pointer by more than 1. 


- Branch if (S) = VALUE. 


TSX 
CPX #VALUE 
BEQ DEST 


- Branch if (S) = (ADDR). 


TSX 
CPX ADDR 
BEQ DEST 


4. Branch if Not Equal. 
- Branch if (A) # VALUE. 


CMP #VALUE 
BNE DEST 


- Branch if (X) £ VALUE. 
CPX  #VALUE 
BNE DEST 


Two special cases are 


Branch if (X) # 1. 
DEX 
BNE DEST 


- Branch if (X) Z FF,,. 


INX 
BNE DEST 


- Branch if (A) # (ADDR). 


CMP ADDR 
BNE DEST 


- Branch if (X) # (ADDR). 


CPX ADDR 
BNE DEST 


;CHECK IF STACK IS AT LIMIT 


;CHECK IF STACK IS AT LIMIT 


;COMPARE BY SUBTRACTING 


;COMPARE BY SUBTRACTING 


? СОМРАКЕ BY SUBTRACTING 


? СОМРАКЕ BY SUBTRACTING 


. Branch if the contents of memory locations PGZRO and PGZRO 4 1 are not 
equal to VAL16 (VALI6L less significant byte, VAL16M more significant byte). 
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LDA PGZRO-*1 ; COMPARE MSB'S 

CMP #VAL16M 

BNE DEST 

LDA PGZ RO ;AND LSB'S ONLY IF NECESSARY 
CMP #VAL16L 


BNE DEST 


· Branch if the contents of memory locations PGZRO and PGZRO + 1 are not 
equal to those of memory locations LIML and LIMH. 


LDA PGZRO+1 ;COMPARE MSB'S 
CMP LIMH 
BNE DEST 


LDA PGZRO ;COMPARE LSB'S ONLY IF NECESSARY 
CMP LIML 
BNE  DEST 


Note: Neither of the next two sequences should be used to test for stack over- 
flow or underflow, since intervening instructions (for example, a single JSR or 
RTS) could change the stack pointer by more than 1. 

. Branch if (S) £ VALUE. 


TSX ;CHECK IF STACK IS AT LIMIT 
CPX #VALUE 
BNE DEST 


* Branch if (S) = (ADDR). 


TSX ;CHECK IF STACK IS AT LIMIT 
CPX ADDR 
BNE DEST 


5. Branch if Positive. 
* Branch if contents of accumulator are positive. 


TAX ;TEST ACCUMULATOR 
BPL DEST 

Or 
CMP $0 ;TEST ACCUMULATOR 


BPL DEST 


- Branch if contents of index register X are positive. 


TXA ;TEST REGISTER X 
BPL DEST 
Or 
CPX #0 | ;TEST INDEX REGISTER X 


BPL DEST 


- Branch if contents of a memory location are positive. 


LDA ADDR ; TEST A MEMORY LOCATION 
BPL DEST 
or 


BIT ADDR 
BPL DEST 
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- Branch if 16-bit number in memory locations ADDR and ADDR +1 (MSB 
in ADDR +1) is positive. 
BIT ADDR+1 ;TEST MSB 
BPL DEST 
Remember that BIT sets the Negative flag from bit 7 of the memory location, 
regardless of the contents of the accumulator. 


6. Branch if Negative. 
- Branch if contents of accumulator are negative. 


TAX ; TEST ACCUMULATOR 


BMI DEST 
or 


CMP #0 ;TEST ACCUMULATOR 
BMI DEST 


- Branch if contents of index register X are negative. 


TXA ;TEST REGISTER X 
BMI DEST 
or 


CPX #0 ;TEST INDEX REGISTER X 
BMI DEST 


- Branch if contents of a memory location are negative. 


BIT ADDR ; TEST A MEMORY LOCATION 
BMI DEST 

Or 
LDA ADDR ; TEST A MEMORY LOCATION 
BMI DEST ; 


Branch if 16-bit number in memory locations ADDR and ADDR+1 (MSB 
in ADDR +1) is negative. 


BIT ADDR+1 ;TEST MSB 
BMI DEST 


Remember that BIT sets the Negative flag from bit 7 of the memory location, 
regardless of the contents of the accumulator. 

7. Branch if Greater Than (Signed). 

: Branch if (A) > VALUE. 


CMP #VALUE ;COMPARE BY SUBTRACTING 

BEQ DONE ;NO BRANCH IF EQUAL 

BVS CHKOPP ;DID OVERFLOW OCCUR? | 
BPL DEST ;NO, THEN BRANCH ON POSITIVE | 
BMI DONE 


CHKOPP BMI DEST ;YES, THEN BRANCH ON NEGATIVE 
DONE МОР | 
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The idea here is to branch if the result is greater than zero and overflow did not 
occur, or if the result is less than zero and overflow did occur. Overflow makes 
the apparent sign the opposite of the real sign. | 


- Branch if (A) > (ADDR). 


CMP ADDR ;COMPARE BY SUBTRACTING 
BEQ DONE ;NO BRANCH IF EQUAL 
BVS CHKOPP ;DID OVERFLOW OCCUR? 
BPL DEST ;NO, THEN BRANCH ON POSITIVE 
BMI DONE 
CHKOPP BMI DEST ;YES, THEN BRANCH ON NEGATIVE 


DONE NOP 


8. Branch if Greater Than or Equal To (Signed) 
e Branch if (A) > VALUE. 


CMP #VALUE ;COMPARE BY SUBTRACTING 
BVS CHKOPP ;DID OVERFLOW OCCUR? 
BPL DEST ;NO, THEN BRANCH ON POSITIVE 
BMI DONE 
CHKOPP BMI DEST ;YES, THEN BRANCH ON NEGATIVE 
DONE NOP 


The idea here is to branch if the result is greater than or equal to 0 and overflow 
did not occur, or if the result is less than 0 and overflow did occur. 


· Branch if (A) > (ADDR). 


CMP ADDR ;COMPARE BY SUBTRACTING 
BVS CHKOPP ;DID OVERFLOW OCCUR? 
BPL DEST ;NO, THEN BRANCH ON POSITIVE 
BMI DONE 
CHKOPP BMI DEST ;YES, THEN BRANCH ON NEGATIVE 


DONE NOP 


9. Branch if Less Than (Signed) 
· Branch if (A) < VALUE (signed). 


CMP #VALUE ;COMPARE BY SUBTRACTING 
BVS CHKOPP ;DID OVERFLOW OCCUR? 
BMI DEST ;NO, THEN BRANCH ON NEGATIVE 
BPL DONE | 
CHKOPP BPL DEST ;YES, THEN BRANCH ON POSITIVE 


DONE NOP 


The idea here is to branch if the result is negative and overflow did not occur, or if 
the result is positive but overflow did occur. 


· Branch if (A) < (ADDR) (signed). 


CMP ADDR ;COMPARE BY SUBTRACTING 

BVS CHKOPP ;DID OVERFLOW OCCUR? 

BMI DEST ;NO, THEN BRANCH ON NEGATIVE 

BPL DONE 
CHKOPP BPL DEST ;YES, THEN BRANCH ON POSITIVE 


DONE NOP 
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10. Branch if Less Than or Equal (Signed). 
: Branch if (A) < VALUE (signed). 


CMP #VALUE ;COMPARE BY. SUBTRACTING 
BEQ DEST ;BRANCH IF EQUAL 
BVS CHKOPP ;DID OVERFLOW OCCUR? 
BMI DEST ;NO, THEN BRANCH ON NEGATIVE 
| BPL DONE 
CHKOPP BPL DEST ;YES, THEN BRANCH ON POSITIVE 


DONE NOP 


The idea here is to branch if the result is 0, negative without overflow, or positive 
with overflow. 


: Branch if (A) < (ADDR) (signed). 


CMP ADDR ; COMPARE BY SUBTRACTING 
BEQ DEST ;BRANCH IF EQUAL 
BVS CHKOPP ;DID OVERFLOW OCCUR? 
BMI DEST ;NO, THEN BRANCH ON NEGATIVE 
BPL DONE 
CHKOPP BPL DEST ;YES, THEN BRANCH ON POSITIVE 


DONE NOP 


11. Branch if Higher (Unsigned). That is, branch if the unsigned comparison 
is nonzero and does not require a borrow. 


- Branch if (А) > VALUE (unsigned). 


CMP #VALUE ;COMPARE BY SUBTRACTING 
BEQ DONE ;NO BRANCH IF EQUAL 
BCS DEST ;BRANCH IF NO BORROW NEEDED 


DONE NOP 


Or 


CMP #VALUE+1 ;COMPARE BY SUBTRACTING VALUE + 1 
BCS DEST ;BRANCH IF NO BORROW NEEDED 


It is shorter and somewhat more efficient to simply compare to a number one 
higher than the actual threshold. Then we can use BCS, which causes a branch if 
the contents of the accumulator are greater than or equal to VALUE+1 
(unsigned). 


. Branch if (A) > (ADDR) (unsigned). 


CMP ADDR ;COMPARE BY SUBTRACTING 
BEQ DONE ;NO BRANCH IF EQUAL 
BCS DEST ;BRANCH IF NO BORROW NEEDED 


DONE NOP 


- Branch if (X) > VALUE (unsigned). 


CPX #VALUE+1 ; COMPARE BY SUBTRACTING VALUE+1 
BCS DEST 
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- Branch if (X) > (ADDR) (unsigned). 


CPX ADDR ; COMPARE BY SUBTRACTING 
BEQ DONE ;NO BRANCH IF EQUAL 
BCS DEST ;BRANCH IF NO BORROW NEEDED 


DONE NOP 


- Branch if the contents of memory locations PGZRO and PGZRO+1 (MSB 
in PGZRO- 1) are larger (unsigned) than VAL16 (VALI6L less significant byte, 
VAL16M more significant byte). 


LDA #VAL16L ;GENERATE BORROW BY COMPARING LSB'S 
CMP PGZRO 

LDA #VAL16M ;COMPARE MSB'S WITH BORROW 

SBC PGZRO+1 

BCC DEST ;BRANCH IF BORROW GENERATED 


- Branch if the contents of memory locations PGZRO and PGZRO+1 (MSB 
in PGZRO+1) are larger (unsigned) than the contents of memory locations 
LIML and LIMH (MSB in LIMH). 


LDA LIML ;GENERATE BORROW BY COMPARING LSB'S 
CMP PGZRO 
LDA LIMH ;COMPARE MSB'S WITH BORROW 
SBC PGZRO+1 
BCC DEST ;BRANCH IF BORROW GENERATED 

‚ Branch if (S) > VALUE (unsigned). 
TSX ;CHECK IF STACK BEYOND LIMIT 
CPX #VALUE 
BEQ DONE ;NO BRANCH IF EQUAL 
BCS DEST ;BRANCH IF NO BORROW NEEDED 

DONE NOP 

Or 

TSX ;CHECK IF STACK BEYOND LIMIT 
CPX #VALUE+1 ;COMPARE BY SUBTRACTING VALUE + 1 
BCS DEST ;BRANCH IF NO BORROW NEEDED 

- Branch if (S) > (ADDR) (unsigned). 
TSX ;CHECK IF STACK BEYOND LIMIT 
BEQ DONE ;NO BRANCH IF EQUAL 
BCS DEST ;BRANCH IF NO BORROW NEEDED 


DONE NOP 


12. Branch if Not Higher (Unsigned). Branch if the unsigned comparison is 0 
or requires a borrow. 
Branch if (A) < VALUE (unsigned). 


CMP #VALUE ;COMPARE BY SUBTRACTING 
BCC DEST ;BRANCH IF BORROW NEEDED 
BEQ DEST ;BRANCH IF EQUAL 
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If the two values are the same, CMP sets the Carry to indicate that no borrow was 
necessary. 


Or 
CMP #VALUE+1 ¿COMPARE BY SUBTRACTING VALUE + 1 
BCC DEST ;BRANCH IF BORROW NEEDED 


- Branch if (A) < (ADDR) (unsigned). 


CMP ADDR ;COMPARE BY SUBTRACTING 
BCC DEST ;BRANCH IF BORROW NEEDED 
BEQ DEST ;BRANCH IF EQUAL 
. Branch if (X) € VALUE (unsigned). 
CPX #VALUE ;COMPARE BY SUBTRACTING 
BCC DEST ;BRANCH IF BORROW NEEDED 
BEQ DEST ;BRANCH IF EQUAL 

or 
CPX #VALUE+1 ;COMPARE BY SUBTRACTING VALUE + 1 
BCC DEST ;BRANCH IF BORROW NEEDED 
- Branch if (X) < (ADDR) (unsigned). 
CPX ADDR ;COMPARE BY SUBTRACTING 
BCC DEST ;BRANCH IF BORROW NEEDED 
BEQ DEST ;BRANCH IF EQUAL 


- Branch if the contents of memory locations PGZRO and PGZRO- 1 (MSB 
in PGZRO +1) are less than or equal to (unsigned) VAL16 (VAL16M more sig- 
nificant byte, VALI6L less significant byte). 


LDA $VAL16L ;GENERATE BORROW BY COMPARING LSB'S 
CMP PGZ RO 

LDA #VAL16M ;COMPARE MSB'S WITH BORROW 

SBC PGZRO+1 

BCS DEST ;BRANCH IF NO BORROW GENERATED 


. Branch if the contents of memory locations PGZRO and PGZRO+1 (MSB 
in PGZRO+1) are less than or equal to (unsigned) the contents of memory loca- 
tions LIML and LIMH (MSB in LIMH). 


LDA ІМІ ;GENERATE BORROW BY COMPARING LSB'S 
CMP PGZRO 

LDA LIMH ;COMPARE MSB'S WITH BORROW 

SBC PGZRO+1 

BCS ` DEST ;BRANCH IF NO BORROW GENERATED 

: Branch if (S) < VALUE (unsigned). 

TSX ;CHECK IF STACK AT OR BELOW LIMIT 
CPX # VALUE 

BCC DEST ;BRANCH IF BORROW NEEDED 


BEQ DEST ;BRANCH IF EQUAL 
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or 
TSX ;CHECK IF STACK AT OR BELOW LIMIT 
CPX #VALUE+1 ;COMPARE BY SUBTRACTING VALUE + 1 
BCC DEST 
* Branch if (S) € (ADDR) (unsigned). 
TSX ;CHECK IF STACK AT OR BELOW LIMIT 
CPX ADDR 
BCC DEST ;BRANCH IF BORROW NEEDED 
BEQ DEST ;BRANCH IF EQUAL 


13. Branch if Lower (Unsigned). That is, branch if the unsigned comparison 
requires a borrow. 


- Branch if (A) < (unsigned). 


CMP #VALUE ;COMPARE BY SUBTRACTING 
BCC DEST ;BRANCH IF BORROW GENERATED 


The Carry flag is set to 0 if the subtraction generates a borrow. 
. Branch if (A) < (ADDR) (unsigned). 


CMP ADDR ;COMPARE BY SUBTRACTING 

BCC DEST ;BRANCH IF BORROW GENERATED 
- Branch if (X) < VALUE (unsigned). 

CPX #VALUE ;COMPARE BY SUBTRACTING 

BCC DEST ;BRANCH IF BORROW GENERATED 
- Branch if (X) < (ADDR) (unsigned). 

CPX ADDR ;COMPARE BY SUBTRACTING 

BCC DEST ;BRANCH IF BORROW GENERATED 


Branch if the contents of memory locations PGZRO and PGZRO+1 (MSB 
in PGZRO- 1) are less than (unsigned) VAL16 (VALIGL less significant byte, 
VALI16M more significant byte). 


LDA PGZ RO ;GENERATE BORROW BY COMPARING LSB'S 
CMP #VAL16L 

LDA PGZRO+1 ;COMPARE MSB'S WITH BORROW 

SBC $VALl6M 

BCC DEST ;BRANCH IF BORROW GENERATED 


- Branch if the contents of memory locations PGZRO and PGZRO+1 (MSB 
in PGZRO+ 1) are less than (unsigned) the contents of memory locations МТ, 
and LIMH (MSB in LIMH). 


LDA PGZ КО ;GENERATE BORROW BY COMPARING LSB'S 
CMP LIML 
LDA PGZRO-*1 ; COMPARE MSB'S WITH BORROW 


SBC LIMH 
BCC DEST ;BRANCH IF BORROW GENERATED 
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- Branch if (S) <VALUE (unsigned). 


TSX ;CHECK IF STACK BELOW LIMIT 
CPX #VALUE 

BCC DEST ;BRANCH IF BORROW NEEDED 

- Branch if (S) < (ADDR) (unsigned). 

TSX ;CHECK IF STACK BELOW LIMIT 
CPX ADDR 

BCC DEST ;BRANCH IF BORROW NEEDED 


14. Branch if Not Lower (Unsigned). That is, branch if the unsigned com- 
parison does not require a borrow. 


- Branch if (A) > VALUE (unsigned). 


CMP #VALUE ;COMPARE BY SUBTRACTING 
BCS DEST ;BRANCH IF NO BORROW GENERATED 


The Carry flag is set to one if the subtraction does not generate a borrow. 
- Branch if (A) > (ADDR) (unsigned). 


CMP ADDR ;COMPARE BY SUBTRACTING 

BCS DEST 

- Branch if (X) > VALUE (unsigned). 

CPX  #VALUE ;COMPARE BY SUBTRACTING 

BCS DEST ;BRANCH IF NO BORROW GENERATED 
: Branch if (X) >(ADDR) (unsigned). 

CPX ADDR ;COMPARE BY SUBTRACTING 

BCS DEST 


- Branch if the contents of memory locations PGZRO and PGZRO+1 (MSB 
in PGZRO+ 1) are greater than or equal to (unsigned) VAL16 (VALIE6L less sig- 
nificant byte, VAL16M more significant byte). 


LDA PGZRO ;GENERATE BORROW BY COMPARING LSB'S 
CMP #VAL16L 

LDA PGZRO+1 ;COMPARE MSB'S WITH BORROW 

SBC #VAL1 6M 

BCS DEST ;BRANCH IF NO BORROW GENERATED 


- Branch if the contents of memory locations PGZRO and PGZRO+1 (MSB 
in PGZRO 4 1) are greater than or equal to (unsigned) the contents of memory 
locations LIML and LIMH (MSB in LIMH). 


LDA PGZ RO ;GENERATE BORROW BY COMPARING LSB'S 
CMP LIML 
LDA PGZRO+1 - ;COMPARE MSB'S WITH BORROW 


SBC LIMH | 
BCS DEST ;BRANCH IF NO BORROW GENERATED 
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- Branch if (S) > VALUE (unsigned). 


TSX ;CHECK IF STACK AT OR ABOVE LIMIT 
CPX #VALUE 

BCS DEST ;BRANCH IF NO BORROW NEEDED 

: Branch if (S) > (ADDR) (unsigned). 

TSX ;CHECK IF STACK AT OR ABOVE LIMIT 
CPX ADDR 

BCS DEST ;BRANCH IF NO BORROW NEEDED 


SKIP INSTRUCTIONS 


You can implement skip instructions on the 6502 microprocessor by using 
branch or jump instructions with the proper destination. That destination should 
be one instruction beyond the one that the processor would execute sequentially 
after the branch. Note that skip instructions are awkward to implement on most 
microprocessors, because their instructions vary in length and it is difficult to 
determine how long a jump is required to skip an instruction. 


SUBROUTINE CALL INSTRUCTIONS 


Unconditional Call Instructions 


You can implement an indirect call on the 6502 microprocessor by calling a 
routine that performs an ordinary indirect jump. A RETURN FROM 
SUBROUTINE (RTS) instruction at the end of the subroutine will then transfer 
control back to the original calling point. The main program performs 


JSR TRANS 


where TRANS is the subroutine that actually transfers control using a jump 
instruction. Note that TRANS ends with a jump, not with a return. Typical 
TRANS routines are: 


- То address in memory locations INDIR and INDIR +1 (MSB in INDIR + 1). 
JMP (INDIR) 


* To address in table starting at memory location BASE and using index іп 
memory location INDEX. 
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LDA INDEX 


ASL A ;DOUBLE INDEX FOR 2-BYTE ENTRIES 
TAX 
LDA BASE, X СЕТ LSB OF DESTINATION 
STA INDIR 
INX 
LDA BASE, X :GET MSB OF DESTINATION 
STA INDIR+1 
JMP (INDIR) :JUMP INDIRECT TO DESTINATION 
Or 
LDA INDEX 
ASL A :DOUBLE INDEX FOR 2-BYTE ENTRIES 
TAX 
LDA BASE+1,X СЕТ MSB OF DESTINATION 
PHA 
LDA BASE,X :GET LSB OF DESTINATION 
PHA 
RTS :JUMP TO DESTINATION PLUS 1 


In the second approach, the table must contain the actual destination addresses 
minus 1, since RTS adds 1 to the program counter after loading it from the stack. 


Conditional Call Instructions 


You can implement a conditional call on the 6502 microprocessor by branch- 
ing on the opposite condition around the call. For example, you could provide 
CALL ON CARRY CLEAR with the sequence 


BCS NEXT ;BRANCH AROUND IF CARRY SET 
JSR SUBR ;CALL IF CARRY CLEAR 
NEXT NOP 


RETURN INSTRUCTIONS 
Unconditional Return Instructions 


The RTS instruction returns control automatically to the address saved at the 
top of the stack (plus 1). If the return address is saved elsewhere (i.e., in two 
memory locations), you can return control to it by performing an indirect jump. 
Note that you must add 1 to the return address to simulate RTS. 

The following sequence pops the return address from the top of the stack, adds 
1 to it, and stores the adjusted value in memory locations RETADR and 
RETADR +1. 
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PLA ;POP LSB OF RETURN ADDRESS 
CLC ;ADD 1 TO LSB 

ADC #1 

STA RETADR 

PLA ;POP MSB OF RETURN ADDRESS 
ADC #0 ;ADD CARRY TO MSB 


STA RETADR+1 
A final JMP (RETADR) will now transfer control to the proper place. 


Conditional Return Instructions 


You can implement conditional returns on the 6502 microprocessor by using 
the conditional branches (on the opposite condition) to branch around an RTS 
instruction. That is, for example, you could provide RETURN ON NOT ZERO 
with the sequence 

BEQ NEXT ;BRANCH AROUND IF ZERO 


RTS ;RETURN ON NOT ZERO 
NEXT NOP 


Return with Skip Instructions 


- Return control to the address at the top of the stack after it has been incre- 
mented by an offset NUM. This sequence allows you to transfer control past 
parameters, data, or other nonexecutable items. 


PLA ;POP RETURN ADDRESS 
CLC 
ADC #NUM+1 ; INCREMENT BY NUM 
STA RETADR 
PLA | 
ADC #0 ;WITH CARRY IF NECESSARY 
STA RETADR+1 
JMP (RETADR) 
or 
TSX ;MOVE STACK POINTER TO INDEX REGISTER 
LDA $0101,X ;INCREMENT RETURN ADDRESS BY NUM 
CLC 
ADC #NUM 


STA $0101,X 

BCC DONE 

INC $0102,X ;WITH CARRY IF NECESSARY 
DONE RTS 


* Change the return address to RETPT. Assume that the return address is 
stored currently at the top of the stack. RETPT consists of RETPTH (MSB) and 
RETPTL (LSB). 
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TSX 

LDA #RETPTL 
STA $0101,X 
LDA #RETPT 

STA $0102,X 
RTS 


The actual return point is RETPT - 1. 


Return from Interrupt Instructions 


If the initial portion of the interrupt service routine saves all the registers with 
the sequence. 


PHA ; SAVE ACCUMULATOR 

TXA ;SAVE INDEX REGISTER X 
PHA 

TYA ;SAVE INDEX REGISTER Y 
PHA 


A standard return sequence is 


PLA ;RESTORE INDEX REGISTER Y 
TAY 

PLA ;RESTORE INDEX REGISTER X 
TAX š 


PLA ; RESTORE ACCUMULATOR 


MISCELLANEOUS INSTRUCTIONS 


In this category, we include push and pop instructions, halt, wait, break, 
decimal adjust, enabling and disabling of interrupts, translation (table lookup), 
and other instructions that do not fall into any of the earlier categories. 


]. Push Instructions. 
- Push index register X. 


TXA ;SAVE X IN STACK VIA А 
PHA 


- Push index register Y. 


TYA ;SAVE Y IN STACK VIA A 
PHA 


. Push memory location ADDR. 


LDA ADDR ; SAVE MEMORY LOCATION IN STACK 
PHA 


CHAPTER 2: IMPLEMENTING ADDITIONAL INSTRUCTIONS AND ADDRESSING MODES 1 21 


ADDR could actually be an external priority register or a copy of it. 


- Push memory locations ADDR and ADDR+1 (ADDR- 1 most signifi- 
cant). 


LDA ADDR+1 ;SAVE 16-BIT NUMBER IN STACK 
PHA 

LDA ADDR 

PHA 


Since the stack is growing toward lower addresses, the 16-bit number ends up 
stored in its usual 6502 form. 

2. Pop (pull) instructions. 

* Pop index register X. 


PLA ;RESTORE X FROM STACK VIA A 
TAX 
- Pop index register Y. 


PLA ;RESTORE Y FROM STACK VIA A 
TAY 


- Pop memory location ADDR. 


PLA ;RESTORE MEMORY LOCATION FROM STACK 
STA ADDR 
ADDR could actually be an external priority register or a copy of it. 
: Pop memory locations ADDR and ADDR+1 (ADDR + 1 most significant 
byte). 
PLA ;RESTORE 16-BIT NUMBER FROM STACK 
STA ADDR 
PLA 
STA ADDR+1 
We assume that the 16-bit number is stored in the usual 6502 form with the less 
significant byte at the lower address. 


Wait Instructions 

The simplest way to implement a wait on the 6502 microprocessor is to use an 
endless loop such as: 

HERE JMP HERE 


The processor will continue executing the instruction until it is interrupted and 
will resume executing it after the interrupt service routine returns control. Of 
course, maskable interrupts must have been enabled or the processor will 
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execute the loop endlessly. The nonmaskable interrupt can interrupt the pro- 


cessor at any time. 
Another alternative is a sequence that waits for a high-to-low transition on the 


Set Overflow input. Such a transition sets the Overflow (V) flag. So the required 
sequence is 


CLV ;CLEAR THE OVERFLOW FLAG 
WAIT BVC WAIT ;AND WAIT FOR A TRANSITION TO SET IT 


This sequence is essentially a **Wait for Input Transition” instruction. 


Adjust Instructions 


1. Branch if accumulator does not contain a valid decimal (BCD) number. 


STA TEMP ; SAVE ACCUMULATOR 

SED ;ENTER DECIMAL MODE 
CLC ;ADD 0 IN DECIMAL MODE 
ADC #0 | 
CLD ;LEAVE DECIMAL MODE 


2. Decimal increment accumulator (add 1 to A in decimal). 


SED ;ENTER DECIMAL MODE 
CLC. 

ADC #1 | ;ADD l DECIMAL 

CLD ;LEAVE DECIMAL MODE 


3. Decimal decrement accumulator (subtract 1 from A in decimal). 


SED ; ENTER DECIMAL MODE 
SEC 

SBC #1 ;SUBTRACT 1 DECIMAL 
CLD ; LEAVE DECIMAL MODE 


4. Enter decimal mode but save the old Decimal Mode flag. 


PHP ;SAVE OLD DECIMAL MODE FLAG 
SED ;ENTER DECIMAL MODE 


A final PLP instruction will restore the old value of the Decimal Mode flag (and 
the rest of the status register as well). 


5. Enter binary mode but save the old Decimal Mode flag. - 


PHP ;SAVE OLD DECIMAL MODE FLAG 
CLD ;ENTER BINARY MODE 


A final PLP instruction will restore the old value of the Decimal Mode flag (and 
the rest of the status register as well). 


CHAPTER 2: IMPLEMENTING ADDITIONAL INSTRUCTIONS AND ADDRESSING MODES 1 23 


Enable and Disable Interrupt Instructions 


1. Enable interrupts but save previous value of I flag. 


PHP ;SAVE OLD I FLAG 

CLI ;ENABLE INTERRUPTS 
After a sequence that must run with interrupts enabled, a PLP instruction will 
restore the previous state of the interrupt system (and the rest of the status 
register as well). 


2. Disable interrupts but save previous value of I flag. 

PHP ;SAVE OLD I FLAG 

SEI ;DISABLE INTERRUPTS 
After a sequence that must run with interrupts disabled, a PLP instruction will 
restore the previous state of the interrupt system (and the rest of the status 
register as well). 


Translate Instructions 


1. Translate the operand in A to a value obtained from the corresponding 
entry in a table starting at the address in memory locations PGZRO and 
PGZRO- 1 (MSB іп PGZRO- 1). 

TAY 

LDA (PGZRO),Y REPLACE OPERAND WITH TABLE ENTRY 
This procedure can be used to convert data from one code to another. 


2. Translate the operand in A to a 16-bit value obtained from the correspond- 
ing entry in a table starting at the address in memory locations PGZRO and 
PGZRO- 1 (MSB in PGZRO- 1). Store the entry in memory locations TEMPL 
and TEMPH (MSB in TEMPH). 


ASL A ;DOUBLE INDEX FOR 2-BYTE ENTRIES 
TAY 

LDA (PGZRO),Y ;GET LSB OF ENTRY 

STA TEMPL 

INY 

LDA (PGZRO),Y ;GET MSB OF ENTRY 


STA TEMPH 


ADDITIONAL ADDRESSING MODES 


: Indirect Addressing. You can provide indirect addressing on the 6502 pro- 
cessor (for addresses on page 0) by using the postindexed (indirect indexed) 
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addressing mode with register Y set to 0. A somewhat less powerful alternative 
(because you cannot index from the indirect address) is to use preindexing 
(indexed indirect addressing) with register X set to 0. Otherwise, indirect 
addressing is available only for the JMP instruction. Note that with JMP, the 
indirect address may be located anywhere in memory; it is not restricted to 
page 0. 
Examples 

1. Load the accumulator indirectly from the address in memory locations 
PGZRO and PGZRO +1. 


LDY #0 ;SET INDEX TO ZERO 
LDA (PGZRO),Y ;LOAD INDIRECT INDEXED 


b. Store the accumulator indirectly at the address in memory locations 
PGZRO and PGZRO- 1. 


LDY #0 ;SET INDEX TO ZERO 
STA (PGZRO) , Y ;STORE INDIRECT INDEXED 


In the case of instructions that lack the indirect indexed mode (such as ASL, 
DEC, INC, LSR, ROL, ROR), you must move the data to the accumulator, oper- 
ate on it there, and then store it back in memory. 

3. Increment the data at the address in memory locations PGZRO and 
PGZRO- 1. 


LDY $0 ;SET INDEX TO ZERO 

LDA (PGZRO),Y ;GET THE DATA 

CLC 

ADC #1 ; INCREMENT THE DATA 
STA (PGZRO) , Y ;STORE THE RESULT BACK 


4. Logically shift right the data at the address in memory locations PGZRO 
апа PGZRO- |. 


LDY $0 ;SET INDEX TO ZERO 

LDA (PGZRO),Y ;GET THE DATA 

LSR A ;SHIFT IT RIGHT 

STA (PGZRO) ,Y ;STORE THE RESULT BACK 


5. Clear the address in memory locations PGZRO апа PGZRO+1. 


LDY #0 ;SET INDEX TO ZERO 
TYA ;DATA - ZERO 
STA (PGZRO),Y ;CLEAR THE INDIRECT ADDRESS 


The only way to provide indirect addressing for other pages is to move the 
indirect address to page O first. 

6. Clear the address in memory locations INDIR and INDIR+1 (not on 
page 0). 
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LDA INDIR ;MOVE INDIRECT ADDRESS TO PAGE ZERO 
STA PGZRO 

LDA INDIR+1 

STA PGZRO+1 

LDY #0 ;SET INDEX TO ZERO 

TYA ;DATA = ZERO 

STA (PGZRO),Y ;CLEAR THE INDIRECT ADDRESS 


. Indexed Addressing. Indexed addressing is available for most instructions in 
the 6502 set. We will discuss briefly the handling of the few for which it is not 
available and we will then discuss the handling of indexes that are larger than 256. 

No indexing is available for BIT, CPX, CPY, JMP, and JSR. Only page 0 
indexing is available for STX and STY. We can overcome these limitations as 
follows: | 

1. BIT 

BIT indexed can be simulated by saving the accumulator, using AND, and 
restoring the accumulator. You should note that restoring the accumulator with 
LDA, PHA, TXA, or TYA will affect the Zero and Negative flags. A typical 
sequence without restoring the accumulator is: 


PHA ;SAVE А 
AND ВАЗЕ, X ;LOGICAL AND INDEXED 


The Zero flag is set as if an indexed BIT had been executed and the contents of A 
are available at the top of the stack. 
2. CPX or CPY 


CPX or CPY indexed can be simulated by moving the index register to A and 
using CMP. That is, CPX indexed with Y can be simulated by the sequence: 


TXA ;MOVE X TO A 
CMP BASE,Y ;THEN COMPARE INDEXED 
3. JMP 


JMP indexed can be simulated by calculating the required indexed address, 
storing it in memory, and using either JMP indirect or RTS to transfer control. 
The sequences are: 


LDA INDEX 


ASL A ;DOUBLE INDEX FOR 2-BYTE ENTRIES 
TAX 

LDA BASE, X ;GET LSB OF DESTINATION 

STA INDIR 

INX 

LDA ВАЗЕ, Х : СЕТ MSB OF DESTINATION 


STA INDIR+1 
JMP (INDIR) ;JUMP INDIRECT TO DESTINATION 
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Or 
LDA INDEX 
ASL A ;DOUBLE INDEX FOR 2-BYTE ENTRIES 
TAX 
LDA BASE+1,X ¿GET MSB OF DESTINATION 
PHA 
LDA BASE,X ¿GET LSB OF DESTINATION 
PHA 
RTS :JUMP INDIRECT TO DESTINATION OFFSET 1 


The second approach requires that the table contain entries that are all 1 less than 
the actual destinations, since RTS adds 1 to the program counter after restoring it 
from the stack. 


4. JSR 


JSR indexed can be simulated by calling a transfer program that executes JMP 
indexed as shown above. The ultimate return address remains at the top of the 
stack and a final RTS instruction will transfer control back to the original calling 
program. That is, the main program contains: 


JSR TRANS 


TRANS performs an indexed jump and thus transfers control to the actual 
subroutine. 


5. STX or STY 


STX or STY indexed can be simulated by moving the index register to A and 
using STA. That is, we can simulate STX indexed with Y by using the sequence: 


TXA ;MOVE X TO A 
STA BASE,Y ;THEN STORE INDEXED 


BASE can be anywhere in memory, not just on page 0. 

We can handle indexes that are larger than 256 by performing an explicit addi- 
tion on the more significant bytes and using the indirect indexed addressing 
mode. That is, if the base address is in memory locations PGZRO and PGZRO- 1 
and the index is in memory locations INDEX and INDEX +1, the following 
sequence will place the corrected base address in memory locations TEMP and 
TEMP +1 (on page 0). 


LDA PGZRO ;SIMPLY MOVE LSB 
STA TEMP 

LDA PGZRO+1 ;ADD MSB'S 

CLC 


ADC INDEX+1 
STA TEMP+1 


TEMP and TEMP +1 now contain a base address that can be used (in conjunction 
with INDEX) in the indirect indexed mode. 
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Examples 
1. Load accumulator indexed. 
LDY INDEX ;СЕТ LSB OF INDEX 
LDA (TEMP) ,Y ¿LOAD A INDIRECT INDEXED 


2. Store accumulator indexed, assuming that we have saved A at the top of the 
stack. 


LDY INDEX ;GET LSB OF INDEX 
PLA ;RESTORE A 
STA (TEMP) ,Y ;STORE A INDIRECT INDEXED 


- Autopreincrementing. Autopreincrementing means that the contents of the 
index register are incremented automatically before they are used. You can pro- 
vide autopreincrementing on the 6502 processor either by using INX or INY on 
an index register or by using the 16-bit methods to increment a base address in 
memory. 


Examples 
- Load the accumulator from address BASE using autopreincrementing on 
index register X. 
INX ;AUTOPREINCREMENT X 
LDA BASE, X 
We assume that the array contains fewer than 256 elements. 


· Load the accumulator from the address in memory locations PGZRO and 
PGZRO + 1 using autopreincrementing on the contents of memory locations 
INDEX and INDEX + 1. 


INC INDEX ;AUTOPREINCREMENT INDEX 

BNE DONE 

INC INDEX+1 ;WITH CARRY IF NECESSARY 
DONE LDA PGZRO ;MOVE LSB 

STA TEMP 

LDA PGZRO+1 ;ADD MSB'S 

CLC 

ADC INDEX+1 

STA TEMP+1 

LDY INDEX ;GET LSB OF INDEX 

LDA (TEMP) ,Y ; LOAD ACCUMULATOR 


If you must autoincrement by 2 (as in handling arrays of addresses) use the 
sequence 


LDA INDEX ;AUTOINCREMENT INDEX BY 2 
CLC 
ADC #2 


STA INDEX 

BCC DONE 

INC INDEX+1 ;CARRY TO MSB IF NECESSARY 
DONE NOP 
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. Autopostincrementing. Autopostincrementing means that the contents of 
the index register are incremented automatically after they are used. You can pro- 
vide autopreincrementing on the 6502 processor either by using INX or INY on 
an index register or by using the 16-bit methods to increment an index in 
memory. 

Examples 

- Load the accumulator from address BASE using autopostincrementing on 
index register Y. 

LDA BASE,Y ;AUTOPOSTINCREMENT Y 
INY 


* Load the accumulator from the address in memory locations PGZRO and 
PGZRO + 1 using autopostincrementing on the contents of memory locations 
INDEX and INDEX + 1. 


LDA PGZ RO ;MOVE LSB OF BASE 

STA TEMP 

LDA PGZRO-*1 ; ADD MSB'S OF BASE AND INDEX 
CLC 

ADC INDEX+1 

STA ТЕМР+1 

LDY INDEX ;GET LSB OF INDEX 

LDA (TEMP) ,Y ; LOAD ACCUMULATOR 

INC INDEX ;AUTOPOSTINCREMENT INDEX 
BNE DONE 

INC INDEX+1 ;WITH CARRY IF NECESSARY 


DONE NOP 


- Autopredecrementing. Autopredecrementing means that the contents of the 
index register are decremented automatically before they are used. You can pro- 
vide autopredecrementing on the 6502 processor either by using DEX or DEY on 
an index register or by using the 16-bit methods to decrement a base address or 
index in memory. 


Examples 


- Load the accumulator from address BASE using autopredecrementing on 
index register X. 


DEX ;AUTOPREDECREMENT X 
LDA BASE,X 
We assume that the array contains fewer than 256 elements. 


* Load the accumulator from the address in memory locations PGZRO and 
PGZRO + 1 using autopredecrementing on the contents of memory locations 
INDEX and INDEX + 1. 
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LDA INDEX ;AUTOPREDECREMENT INDEX 

BNE DECLSB 

DEC INDEX+1 ;BORROWING FROM MSB IF NECESSARY 
DECLSB DEC INDEX 

LDA PGZ RO ;MOVE LSB OF BASE 

STA TEMP 

LDA PGZRO+1 ;ADD MSB'S OF BASE AND INDEX 

CLC 


ADC INDEX+1 
STA TEMP+1 
LDY INDEX ;GET LSB OF INDEX 
LDA (TEMP) ,Y ? LOAD ACCUMULATOR 


If you must autodecrement by 2 (as in handling arrays of addresses), use the 
sequence: 


LDA INDEX ;AUTODECREMENT INDEX BY 2 

SEC 

SBC #2 

STA INDEX 

BCS DONE 

DEC INDEX+1 ;BORROWING FROM MSB IF NECESSARY 


DONE NOP 


- Autopostdecrementing. Autopostdecrementing means that the contents of 
the index register are decremented automatically after they are used. You can 
provide autopostdecrementing on the 6502 processor by using either DEX or 
DEY on an index register or by using the 16-bit methods to decrement an index 
in memory. 


Examples 


· Load the accumulator from address BASE using autopostdecrementing on 
index register Y. 


LDA BASE,Y ;AUTOPOSTDECREMENT Y 
DEY 
- Load the accumulator from the address in memory locations PGZRO and 
PGZRO + 1 using autopostdecrementing on the contents of memory locations 
INDEX and INDEX + 1. 


LDA PGZ RO ;MOVE LSB OF BASE 

STA TEMP 

LDA PGZRO+1 ;ADD MSB'S OF BASE AND INDEX 
CLC 

ADC INDEX+1 

STA TEMP+1 

LDY INDEX ;GET LSB OF INDEX 

LDA (TEMP) ,Y ; LOAD ACCUMULATOR 

CPY $0 ; AUTOPOSTDECREMENT INDEX 

BNE DECLSB 

DEC INDEX+1 ;BORROWING FROM MSB IF NECESSARY 


DECLSB DEC INDEX 
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* Indexed indirect addressing (preindexing). The 6502 processor provides 
preindexing for many instructions. We can simulate preindexing for the instruc- 
tions that lack it by moving the data to the accumulator using preindexing, 
operating on it, and (if necessary) storing the result back into memory using 
preindexing. 


Examples 


]. Rotate right the data at the preindexed address obtained by indexing with X 
from base address PGZRO. 


LDA (PGZRO,X) ;GET THE DATA 
ROR A ;ROTATE DATA RIGHT | 
5ТА (PGZRO,X) ;STORE RESULT BACK IN MEMORY 


2. Clear the preindexed address obtained by indexing with X from base 
address PGZRO. 


LDA $0 ;DATA - ZERO 
STA (PGZRO,X) ;CLEAR PREINDEXED ADDRESS 


Note that if the calculation of an effective address in preindexing produces a 
result too large for eight bits, the excess is truncated and no error warning occurs. 
That is, the processor provides an automatic wraparound on page 0. 


- Indirect indexed addressing (postindexing). The 6502 processor provides 
postindexing for many instructions. We can simulate postindexing for the 
instructions that lack it by moving the data to the accumulator using postindex- 
ing, operating on it, and (if necessary) storing the result back into memory using 
postindexing. 


Examples 
1. Decrement the data at the address in memory locations PGZRO and 
PGZRO- 1 using Y as an index. 


LDA (PGZRO) ,Y ;GET THE DATA 

SEC 

SBC #1 ;DECREMENT DATA BY 1 

STA (PGZRO),Y ;STORE RESULT BACK IN MEMORY 


2. Rotate left the data at the address in memory locations PGZRO and 
PGZRO- 1 using Y as an index. 
LDA (PGZRO),Y  ;GET THE DATA 


ROL A ;ROTATE DATA LEFT 
STA (PGZRO) , Y ;STORE RESULT BACK IN MEMORY 
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Chapter 3 Common 
Programming Errors 


This chapter describes common errors in 6502 assembly language programs. 
The final section describes common errors in input/output drivers and interrupt 
service routines. Our aims here are the following: 


* To warn programmers of potential trouble spots and sources of confusion. 
To indicate likely causes of programming errors. 


- To emphasize some of the techniques and warnings presented in Chapters 1 
and 2. 


“То inform maintenance programmers where to look for errors and misin- 
terpretations. 


* To provide the beginner with a starting point in the difficult process of locat- 
ing and correcting errors. 


Of course, no list of errors can be complete. We have emphasized the most 
common ones in our work, but we have not attempted to describe the rare, sub- 
tle, or occasional errors that frustrate even the experienced programmer. 
However, most errors are remarkably simple once you uncover them and this list 
should help you debug most programs. 


CATEGORIZATION OF 
PROGRAMMING ERRORS 


We may generally divide common 6502 programming errors into the following 
categories: 


* Using the Carry improperly. Typical errors include forgetting to clear the 
Carry before addition or set it before subtraction, and interpreting it incorrectly 
after comparisons (it acts as an inverted borrow). 
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* Using the other flags improperly. Typical errors include using the wrong flag 
(such. as Negative instead of Carry), branching after instructions that do not 
affect a particular flag, inverting the branch conditions (particularly when the 
Zero flag is involved), and changing a flag accidentally before branching. 


- Confusing addresses and data. Typical errors include using immediate 
instead of direct addressing, or vice versa, and confusing memory locations on 
page 0 with the addresses accessed indirectly through those locations. 

* Using the wrong formats. Typical errors include using BCD (decimal) 
instead of binary, or vice versa, and using binary or hexadecimal instead of 
ASCII. 


* Handling arrays incorrectly. Typical problems include accidentally overrun- 
ning the array at one end or the other (often by 1) and ignoring page boundaries 
when the array exceeds 256 bytes in length. 


- Ignoring implicit effects. Typical errors include using the contents of the 
accumulator, index register, stack pointer, flags, or page 0 locations without con- 
sidering the effects of intermediate instructions on these contents. Most errors 
arise from instructions that have unexpected, implicit, or indirect effects. 


- Failing to provide proper initial conditions for routines or for the microcom- 
puter as a whole. Most routines require the initialization of counters, indirect 
addresses, indexes, registers, flags, and temporary storage locations. The 
microcomputer as a whole requires the initialization of the Interrupt Disable and 
Decimal Mode flags and all global RAM addresses (note particularly indirect 
addresses and other temporary storage on page 0). 


* Organizing the program incorrectly. Typical errors include skipping or 
repeating initialization routines, failing to update indexes, counters, or indirect 
addresses, and forgetting to save intermediate or final results. 


A common source of errors, one that is beyond the scope of our discussion, is 
conflict between user programs and systems programs. A simple example is a 
user program that saves results in temporary storage locations that operating 
systems or utility programs need for their own purposes. The results thus disap- 
pear mysteriously even though a detailed trace of the user program does not 
reveal any errors. 

More complex sources of conflict may include the interrupt system, input/out- 
put ports, the stack, or the flags. After all, the systems programs must employ the 
same resources as the user programs. (Systems programs generally attempt to 
save and restore the user's environment, but they often have subtle or unex- 
pected effects.) Making an operating system transparent to the user is a problem 
comparable to devising a set of regulations, laws, or tax codes that have no 
loopholes or side effects. 
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USING THE CARRY IMPROPERLY 


The following instructions and conventions are the most common sources of 
errors: 


e CMP, CPX, and CPY affect the Carry as if it were an inverted borrow, that 
is, they set the Carry if the subtraction of the memory location from the register 
did not require a borrow, and they clear the Carry if it did. Thus, Carry = 1 if no 
borrow was necessary and Carry = 0 if a borrow was required. This is contrary to 
the sense of the Carry in most other microprocessors (the 6800, 6809, 8080, 
8085, or Z-80). 


e SBC subtracts the inverted Carry flag from the normal subtraction of the 
memory location from the accumulator. That is, it produces the result (A) — 
(M) — (1 — Carry). If you do not want the Carry flag to affect the result, you 
must set it with SEC. Like comparisons, SBC affects the Carry as if it were an 
inverted borrow; Carry = 0 if the subtraction requires a borrow and 1 if it does 
not. 


* ADC always includes the Carry in the addition. This produces the result (A) 
= (A) + (M) + Carry. If you do not want the Carry flag to affect the result, you 
must clear it with CLC. Note that the Carry has its normal meaning after ADC. 


Examples 

1. CMP ADDR 

This instruction sets the flags as if the contents of memory location ADDR had 
been subtracted from the accumulator. The Carry flag is set if the subtraction 
does not require a borrow and cleared if it does. Thus 


Carry = 1 if (A) > (ADDR) 
Carry = 0 if (A) < (ADDR) 


We are assuming that both numbers are unsigned. Note that the Carry is set (to 
1) if the numbers are equal. 


2. SBC #VALUE 


This instruction subtracts VALUE and 1 — Carry from the accumulator. It sets 
the flags just like a comparison. To subtract VALUE alone from the accumulator, 
you must use the sequence 


SEC ;SET INVERTED BORROW 
SBC #VALUE ;SUBTRACT VALUE 


This sequence produces the result (A) = (A) — VALUE. If VALUE = 1, the 
sequence is equivalent to a Decrement Accumulator instruction (remember, 
DEC cannot be applied to A). 
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3. ADC #VALUE 
This instruction adds VALUE and Carry to the accumulator. To add VALUE 
alone to the accumulator, you must use the sequence 


CLC | ;CLEAR CARRY 
ADC #VALUE ;ADD VALUE 


This sequence produces the result (A) = (A) + VALUE. If VALUE = 1, the 
sequence is equivalent to an Increment Accumulator instruction (remember, 
INC cannot be applied to A). 


USING THE OTHER FLAGS 
INCORRECTLY 


Instructions for the 6502 generally have expected effects on the flags. The only 
special case is BIT. Situations that require some care include the following: 


- Store instructions (STA, STX, and STY) do not affect the flags, so the flags 
do not necessarily reflect the value that was just stored. You may need to test the 
register by transferring it to another register or comparing it with 0. Note that load 
instructions (including PHA) and transfer instructions (excluding TXS) affect 
the Zero and Negative flags. 


- After a comparison (CMP, CPX, or CPY), the Zero flag indicates whether 
the operands are equal. The Zero flag is set if the operands are equal and cleared if 
they are not. There is some potential confusion here — BEQ means branch if the 
result is equal to 0; that is, branch if the Zero flag is 1. Be careful of the difference 
between the result being 0 and the Zero flag being 0. These two conditions are 
opposites; the Zero flag is 0 if the result is not 0. 


- In comparing unsigned numbers, the Carry flag indicates which number is 
larger. CMP, CPX, or CPY clears the Carry if the register’s contents are greater 
than or equal to the other operand and sets the Carry if the register’s contents are 
less. Note that comparing equal operands sets the Carry. If these alternatives 
(greater than or equal and less than) are not what you need (you want the alterna- 
tives to be greater than and less than or equal), you can reverse the subtraction, 
subtract 1 from the accumulator, or add 1 to the other operand. 


* In comparing signed numbers, the Negative flag indicates which operand is 
larger unless two’s complement overflow has occurred. We must first look at the 
Overflow flag. If that flag is 0, the Negative flag indicates which operand is larger; 
if that flag is 1, the sense of the Negative flag is inverted. 

After a comparison (if no overflow occurs), the Negative flag is set if the 
register’s contents are less than the other operand, and cleared if the register’s 
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contents are greater than or equal to the other operand. Note that comparing 
equal operands clears the Negative flag. As with the Carry, you can handle the 
equality case in the opposite way by adjusting either operarid or by reversing the 
subtraction. 


“ If a condition holds and you wish the computer to do something, a common 
procedure is to branch around a section of the program on the opposite condition. 
For example, to increment memory location OVFLW if the Carry is 1, use the 
sequence 

BCC NEXT 


INC OVFLW 
NEXT NOP 


The branch condition is the opposite of the condition under which the section 
should be executed. 


° Increment and decrement instructions do not affect the Carry flag. This 
allows the instructions to be used for counting in loops that perform multiple- 
byte arithmetic (the Carry is needed to transfer carries or borrows between 
bytes). Increment and decrement instructions do, however, affect the Zero and 
Negative flags; you can use the effect on the Zero flag to determine whether an 
increment has produced a carry. Note the following typical sequences: 


1. 16-bit increment of memory locations INDEX and INDEX+1 (MSB in 
INDEX + 1) 


INC INDEX ;INCREMENT LSB 
BNE DONE 
INC INDEX+1 ;AND CARRY TO MSB IF NECESSARY 


DONE NOP 
We determine if a carry has been generated by examining the Zero flag after 
incrementing the less significant byte. 


2. 16-bit decrement of memory locations INDEX and INDEX+1 (MSB in 
INDEX +1) 


LDA INDEX ;CHECK LSB 

BNE DECLSB 
| DEC INDEX+1 ;BORROW FROM MSB IF NECESSARY 
DECLSB DEC INDEX ;DECREMENT MSB 


We determine if a borrow will be generated by examining the less significant byte 
before decrementing it. 


* The BIT instruction has rather unusual effects on the flags. It places bit 6 of 
the memory location in the Overflow flag and bit 7 in the Negative flag, regard- 
less of the value in the accumulator. Thus, only the Zero flag actually reflects the 
logical ANDing of the accumulator and the memory location. 
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: Only a few instructions affect the Carry or Overflow flags. The instructions 
that affect Carry are arithmetic (ADC, SBC), comparisons (CMP, CPX, and 
CPY), and shifts (ASL, LSR, ROL, and ROR), besides the obvious CLC and 
SEC. The only instructions that affect Overflow are ADC, BIT, CLV, and SBC; 
comparison and shift instructions do not affect the Overflow flag, unlike the 
situation in the closely related 6800 and 6809 microprocessors. 


Examples 
]. The sequence 


STA $1700 
BEQ DONE 


will have unpredictable results, since STA does not affect any flags. Sequences 
that will produce a jump if the value stored is 0 are 


STA $1700 
CMP &0 :TEST ACCUMULATOR 


BEQ DONE 


Or 
STA $1700 
TAX ; TEST ACCUMULATOR 
BEQ DONE 


2. The instruction CMP +$25 sets the Zero flag as follows: 


Zero = | И Ше contents of A аге 25, 
Zero = 0 И the contents of A are not 25,6 


Thus, if you want to increment memory location COUNT, if (A) = 25,,, use the 
sequence 


CMP $525 ;1S А 25? 
BNE DONE 
INC COUNT ;YES, INCREMENT COUNT 


DONE NOP 
Note that we use BNE to branch around the increment if the condition (A — 
25) does not hold. It is obviously easy to err by inverting the branch condition. 
3. The instruction CPX #825 sets the Carry flag as follows: 


Carry = 0 if the contents of X are between 00 and 24, 
Carry = 1 if the contents of X are between 25 and ЕЕ 6 


Thus, the Carry flag is cleared if X contains an unsigned number less than the 
other operand and set if X contains an unsigned number greater than or equal to 
the other operand. 
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If you want to clear the Carry if the X register contains 25,, use CPX +$26 
instead of CPX +$25. That is, we have 


CPX #525 

BCC LESS ;BRANCH IF (X) LESS THAN 25 
Or 

CPX $926 

BCC LESSEQ ;BRANCH IF (X) 25 OR LESS 


4. The sequence SEC, SBC 3F$40 sets the Negative (Sign) flag as follows: 


Negative = 0 if A is between 40,, and 7F,, (normal signed arithmetic) or if А 
is between 80,, and СО, (because of two’s complement overflow) 


Negative = 1 if A is between 00,, and ЗЕ „ог between СІ, and FF,, (normal 
signed arithmetic) 

Two's complement overflow occurs if A contains a number between 80,, 
(-128, in two's complement) and С0,, (—64,, in two's complement). Then 
subtracting 40,, (64,,) produces a result less than —128,,, which is beyond the 
range of an 8-bit signed number. The setting of the Overflow flag indicates this 
out-of-range condition. 

The following sequence will thus produce a branch if A contains a signed num- 
ber less than 40... 


SEC ;SET INVERTED BORROW 

SBC #$40 ;SUBTRACT 40 HEX 

BVS DEST ;BRANCH IF OVERFLOW IS SET 
BMI DEST ;OR IF DIFFERENCE IS NEGATIVE 


Note that we cannot use CMP here, since it does not affect the Overflow flag. We 
could, however, use the sequence 


CMP $0 ;BRANCH IF A IS NEGATIVE 


BMI DEST 
CMP #540 ;OR IF А IS POSITIVE BUT BELOW 40 HEX 


BCC DEST 
We eliminate the possibility of overflow by handling negative numbers sepa- 
rately. 

5. The sequence 


INC ADDR 
BCS NXT PG 


will have unpredictable results, since INC does not affect the Carry flag. A 
sequence that will produce a jump, if the result of the increment is 00 (thus 
implying the production of a carry), is illustrated below. 
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INC ADDR 
BEQ NXT PG 


We can tell when an increment has produced a carry, but we cannot tell when a 
decrement has required a borrow since the result then is FF (е not 0. Thus, it is 
much simpler to increment a multibyte number than to decrement it. 


6. The sequence 


BIT ADDR 
BVS DEST 


produces a branch if bit 6 of ADDR is 1. The contents of the accumulator do not 
affect it. Similarly, the sequence 

BIT ADDR 

BPL DEST 
produces a branch if bit 7 of ADDR is 0. The contents of the accumulator do not 
affect it. The only common sequence with BIT in which the accumulator matters 
is 

LDA #MASK 

BIT ADDR 
This sequence sets the Zero flag if logically ANDing MASK and the contents of 
ADDR produces a result of 0. A typical example using the Zero flag is 

LDA #%00010000 


ВІТ Аррк 
BNE DEST ;BRANCH IF BIT 4 OF ADDR IS 1l 


This sequence forces a branch if the result of the logical AND is nonzero, that is, 
if bit 4 of ADDR is 1. 

The effects of BIT on the Overflow and Negative flags do not generally cause 
programming errors since there are no standard, widely used effects that might 
cause confusion. These effects do, however, create documentation problems 
since the approach is unique and those unfamiliar with the 6502 cannot be 
expected to guess what is happening. 


7. The sequence 


CMP #VALUE 
BVS DEST 


produces unpredictable results, since CMP does not affect the Overflow flag. 
Instead, to produce a branch if the subtraction results in two’s complement over- 
flow, use the sequence 


SEC ;SET INVERTED BORROW 
SBC #VALUE ;SUBTRACT VALUE 
BVS DEST ;BRANCH IF OVERFLOW OCCURS 
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CONFUSING ADDRESSES AND DATA 


The rules to remember are 


‚ The immediate addressing mode requires the actual data as an operand. That 
is, LDA 3F$40 loads the accumulator with the number 40,,. 


. The absolute and zero page (direct) addressing modes require the address of 
the data as an operand. That is, LDA $40 loads the accumulator with the contents 
of memory location 0040... 


- The indirect indexed and indexed indirect addressing modes obtain the 
indirect address from two memory locations on page 0. The indirect address is in 
two memory locations starting at the specified address; it is stored upside-down, 
with its less significant byte at the lower address. Fortunately, the indexed 
indirect (preindexed) mode is rarely used and is seldom a cause of errors. The 
meaning of addressing modes with JMP and JSR can be confusing, since these 
instructions use addresses as if they were data. The assumption is that one could 
not transfer control to a number, so a jump with immediate addressing would be 
meaningless. However, the instruction JMP $1C80 loads 1C80,, into the program 
counter, just like a load with immediate addressing, even though we conven- 
tionally say that the instruction uses absolute addressing. Similarly, the instruc- 
tion JMP (ADDR) loads the program counter with the address from memory 
locations ADDR and ADDR +]; it thus acts like a load instruction with absolute 
(direct) addressing. 


Examples 


1. LDX+$20 loads the number 20,, into index register X. LDX $20 loads the 
contents of memory location 0020,, into index register X. 


2. LDA ($40), Y loads the accumulator from the address obtained by indexing 
with Y from the base address in memory locations 0040,, and 0041,, (MSB in 
0041,). Note that if LDA ($40),Y makes sense, then LDA ($41),Y generally 
does not, since it uses the base address in memory locations 0041,, and 0042,,. 
Thus, the indirect addressing modes generally make sense only if the indirect 
addresses are aligned properly on word boundaries; however, the 6502 does not 
check this alignment in the way that many computers (particularly IBM 
machines) do. The programmer must make sure that all memory locations used 
indirectly contain addresses with the bytes arranged properly. 


Confusing addresses and their contents is a frequent problem in handling data 
structures. For example, the queue of tasks to be executed by a piece of test 
equipment might consist of a block of information for each task. That block might 
contain 


- The starting address of the test routine. 
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* The number of seconds for which the test is to run. 

* The address in which the result is to be saved. 

* The upper and lower thresholds against which the result is to be compared. 
* The address of the next block in the queue. 


Thus, the block contains data, direct addresses, and indirect addresses. Typical 
errors that a programmer could make are 


- Transferring control to the memory locations containing the starting address 
of the test routine, rather than to the actual starting address. 


- Storing Ше result in the block rather than in the address specified in the 
block. 


- Using a threshold as an address rather than as data. 


- Assuming that the next block starts within the current block, rather than at 
the address given in the current block. 


Jump tables are another common source of errors. The following are alterna- 
tive implementations: 


* Form a table of jump instructions and transfer control to the correct element 
(for example, to the third jump instruction). 


* Form a table of destination addresses and transfer control to the contents of 
the correct element (for example, to the address in the third element). 


You will surely have problems if you try to use the jump instructions as 
indirect addresses or if you try to execute the indirect addresses. 


FORMAT ERRORS 


The rules you should remember are 


. А $in front of a number (or an На! the end) indicates hexadecimal to the as- 
sembler and a 96 in front or a B at the end indicates binary. Be careful — some as- 
semblers use different symbols. 


. The default mode of most assemblers is decimal; that is, most assemblers 
assume all numbers to be decimal unless they are specifically designated as some- 
thing else. A few assemblers (such as Apple's miniassembler and the mnemonic 
entry mode in Rockwell's AIM-65) assume hexadecimal as a default. 


* ADC and SBC instructions produce decimal results if the Decimal Mode flag 
is 1 and binary results if the Decimal Mode flag is 0. All other instructions, 
including DEC, DEX, DEY, INC, INX, and INY, always produce binary results. 
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You should make special efforts to avoid the following common errors: 


· Omitting the hexadecimal designation ($ or H) from a hexadecimal data 
item or address. The assembler will assume the item to be a decimal number if it 
contains no letter digits. It will treat the item as a name if it is valid (it must start 
with a letter in most assemblers). The assembler will indicate an error only if the 
item cannot be interpreted as a decimal number or a name. 


- Omitting the binary designation (% or B) from a binary data item. The as- 
sembler will assume it to be a decimal number. 


- Confusing decimal (BCD) representations with binary representations. 
Remember, ten is not an integral power of two, so the binary and BCD represen- 
tations are not the same beyond nine. Standard BCD constants must be desig- 
nated as hexadecimal numbers, not as decimal numbers. 


* Confusing binary or decimal representations with ASCII representations. An 
ASCII input device produces ASCII characters and an ASCII output device re- 
sponds to ASCII characters. 

Examples 

1. LDA 2000 

This instruction loads the accumulator from memory address 2000,, (07D0,,), 
not address 2000,,. The assembler will not produce an error message, since 2000 
is a valid decimal number. 

2. AND 3Ғ00000011 


This instruction logically ANDs the accumulator with the decimal number 11 
(1011,), not with the binary number 11 (3,,). The assembler will not produce an 
error message, since 00000011 is a valid decimal number despite its unusual 
form. 

3. ADC +40 


This instruction adds 40,, (not 40, = 64,,) and the Carry to the accumulator. 
Note that 40,, is not the same as 40 BCD, which is 40,,; 40,, = 28,,. The assem- 
bler will not produce an error message, since 40 is a valid decimal number. 

4. LDA +3 


This instruction loads the accumulator with the number 3. If this value is now 
sent to an ASCII output device, it will respond as if it had received the character 
ETX (03,,), not the character 3 (33,,). The correct version is 


LDA #'3 СЕТ АМ ASCII 3 
5. If memory location 0040,, contains a single digit, the sequence 


LDA $40 
STA PORT 
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will not print that digit on an ASCII output device. The correct sequence is 


LDA $40 ;GET DECIMAL DIGIT 
CLC 
ADC #'0 ;ADJUST TO ASCII 
STA PORT 

Or 
LDA $40 ;GET DECIMAL DIGIT 


ORA $$00110000 ;ADJUST TO ASCII 
STA PORT 


6. If input port IPORT contains a single ASCII decimal digit, the sequence 


LDA IPORT 
STA $40 


will not store the actual digit in memory location 0040,,. Instead, it will store the 
ASCII version, which is the actual digit plus 30,,. The correct sequence is 


LDA IPORT ;GET ASCII DIGIT 
SEC 
SBC #'0 ;ADJUST TO DECIMAL 
STA $40 

Or 
LDA IPORT ;GET ASCII DIGIT 
AND $$11001111  ;ADJUST TO DECIMAL 
STA $40 


Handling decimal arithmetic on the 6502 microprocessor is simple, since the pro- 
cessor has a Decimal Mode (D) flag. When that flag is set (by SED), all additions 
and subtractions produce decimal results. So, the following sequences implement 
decimal addition and subtraction: 


- Decimal addition of memory location ADDR to the accumulator 


SED : ENTER DECIMAL MODE: 
CLC 

ADC ADDR ; ADD DECIMAL 

CLD :LEAVE DECIMAL MODE 


- Decimal subtraction of memory location ADDR from the accumulator 


SED : ENTER DECIMAL MODE 
SEC 

SBC ADDR ;SUBTRACT DECIMAL 
CLD ;LEAVE DECIMAL MODE 


Since increment and decrement instructions always produce binary results, we 
must use the following sequences (assuming the D flag is set). 
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Increment memory location 0040,, in the decimal mode 


LDA $40 
CLC 

ADC #1 
STA $40 


Decrement memory location 0040,, in the decimal mode 


LDA $40 
SEC 

SBC #1 

STA $40 


The problem with the decimal mode is that it has implicit effects. That is, the 
same ADC and SBC instructions with the same data will produce different 
results, depending on the state of the Decimal Mode flag. The following pro- 
cedures will reduce the likelihood of the implicit effects causing unforeseen 
errors: 


. Initialize the Decimal Mode flag (with CLD) as part of the regular system 
initialization. Note that RESET has no effect on the Decimal Mode flag. 


- Clear the Decimal Mode flag as soon as you are through performing decimal 
arithmetic. 


“ Initialize the Decimal Mode flag in interrupt service routines that include 
ADC or SBC instructions. That is, such service routines should execute CLD 
before performing any binary addition or subtraction. 


HANDLING ARRAYS INCORRECTLY 


The following situations are the most common sources of errors: 


: If you are counting an index register down to 0, the zero index value may 
never be used. The solution is to reduce the base address or addresses by 1. For 
example, if the terminating sequence in a loop is 


DEX 
BNE LOOP 


the processor will fall through as soon as X is decremented to 0. A typical adjusted 
loop (clearing NTIMES bytes of memory) is 


LDX #NTIMES 
LDA #0 

CLEAR STA BASE-1,X 
DEX 


BNE CLEAR 
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Note the use of BASE- 1 in the indexed store instruction. The program clears 
addresses BASE through BASE + NTIMES- 1. 


e Although working backward through an array is often more efficient than 
working forward, programmers generally find it confusing. Remember that the 
address BASE + (X) contains the previous entry in a loop like the example shown 
above. Although the processor can work backward just as easily as it can work for- 
ward, programmers usually find themselves conditioned to thinking ahead. 


* Be careful not to execute one extra iteration or stop one short. Remember, 
memory locations BASE through BASE +N contain М+ 1 entries, пої N entries. 
It is easy to forget the last entry or, as shown above, drop the first one. On the 
other hand, if you have N entries, they will occupy memory locations BASE 
through BASE + N-1; now it is easy to find yourself working off the end of the 
array. 


* You cannot extend absolute indexed addressing or zero-page indexed 
addressing beyond 256 bytes. If an index register contains ЕЕ „ incrementing it 
will produce a result of 00. Similarly, if an index register contains 00, decrement- 
ing it will produce a result of ЕЕ. Thus, you must be careful about incrementing 
or decrementing index registers when you might accidentally exceed the capacity 
of eight bits. To extend loops beyond 256 bytes, use the indirect indexed (postin- 
dexed) addressing mode. Then the following sequence will add 1 to the more sig- 
nificant byte of the indirect address when index register Y is incremented to 0. 


INY ; INCREMENT INDEX REGISTER 
BNE DONE 
INC INDIR+] 


DONE NOP 


Here INDIR and INDIR 4 1 are the locations on page 0 that contain the indirect 
address. 


Example 


1. Let us assume (INDIR) = 80, and (INDIR +1) = 4C,,, so that the initial 
base address is 4C80,,. If the loop refers to the address (INDIR), Y, the effective 
address is (INDIR+1) (INDIR) + Y or 4C80,, + (Y). When Y = ЕЕ „Ше 
effective address is 


16? 


4С80,6 + (Y) = 4С80 16 + FF 6 = 407Е 6 


The sequence shown above for incrementing the index and the indirect address 
produces the results 


(Y) = (Y) + 1 = 00 
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The effective address for the next iteration will be 


4080 6 + (Y) = 4080 6 = 00,6 = 4080; 


which is the next higher address іп the normal consecutive sequence. 


IMPLICIT EFFECTS 


Some of the implicit effects you should remember are 


* The changing of the Negative and Zero flags by load and transfer instruc- 
tions, such as LDA, LDX, LDY, PLA, TAX, TAY, TSX, TXA, and TYA. 


“Тһе dependence of the results of ADC and SBC instructions on the values of 
the Carry and Decimal Mode flags. 


- The special use of the Negative and Overflow flags by the BIT instruction. 


The use of the memory address one larger than the specified one in the 
indirect, indirect indexed, and indexed indirect addressing modes. 


* The changing of the stack pointer by PHA, PHP, PLA, PLP, JSR, RTS, RTI, 
and BRK. Note that JSR and RTS change the stack pointer by 2, and BRK and 
RTI change it by 3. 

. The saving of the return address minus 1 by JSR and the addition of 1 to the 
restored address by RTS. 

“Тһе inclusion of the Carry in the rotate instructions ROL and ROR. The 
rotation involves nine bits, not eight bits. 

Examples 

1. LDX $40 

This instruction affects the Negative and Zero flags, so those flags will no 
longer reflect the value in the accumulator or the result of the most recent opera- 
tion. | 

2. ADC +$20 

This instruction adds in the Carry flag as well as the immediate data (20,,). The 
result will be binary if the Decimal Mode flag is cleared, but BCD if the Decimal 
Mode flag is set. 

3. BIT $1700 


This instruction sets the Overflow flag from the value of bit 6 of memory loca- 
поп 1700,,. This is the only instruction that has a completely unexpected effect 
on that flag. 
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4. JMP ($1C00) 

This instruction transfers control to the address in memory locations 1С00,, 
and 1C01,, (MSB in 1C01,). Note that 1C01,, is involved even though it is not 
specified, since indirect addresses always occupy two bytes of memory. 

5. PHA 

This instruction not only saves the accumulator in memory, but it also decre- 
ments the stack pointer by 1. 

6. RTS 

This instruction not only loads the program counter from the top two locations 
in the stack, but it also increments the stack pointer by 2 and the program counter 
by 1. 

7. ROR A 

This instruction rotates the accumulator right 1 bit, moving the former con- 
tents of bit position 0 into the Carry and the former contents of the Carry into bit 
position 7. 


INITIALIZATION ERRORS 


The initialization routines must perform the following tasks, either for the 
microcomputer system as a whole or for particular routines: 


. Load all RAM locations with initial values. This includes indirect addresses 
and other temporary storage on page 0. You cannot assume that a memory loca- 
tion contains 0 just because you have not used it. 


- Load all registers and flags with initial values. Reset initializes only the Inter- 
rupt Disable flag (to 1). Note, in particular, the need to initialize the Decimal 
Mode flag (usually with CLD) and the stack pointer (using the LDX, TXS 
sequence). 


- Load all counters and indirect addresses with initial values. Be particularly 
careful of addresses on page 0 that are used in either the indirect indexed (postin- 
dexed) addressing mode or the indexed indirect (preindexed) mode. 


ORGANIZING THE PROGRAM INCORRECTLY 


The following problems are the most common: 


- Failing to initialize a register, flag, or memory location. You cannot assume 
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that a register, flag, or memory location contains zero just because you have not 
used it. 


* Accidentally reinitializing a register, flag, memory location, index, counter, 
or indirect address. Be sure that your branches do not cause some or all of the 
initialization instructions to be repeated. 


* Failing to update indexes, counters, or indirect addresses. A problem here 
may be one path that branches around the updating instructions or changes some 
of the conditions before executing those instructions. 


* Forgetting to save intermediate or final results. It is remarkably easy to 
calculate a result and then load something else into the accumulator. Errors like 
this are particularly difficult to locate, since all the instructions that calculate the 
result work properly and yet the result itself is being lost. A common problem 
here is for a branch to transfer control to an instruction that writes over the result 
that was just calculated. 


- Forgetting to branch around instructions that should not be executed in a 
particular path. Remember, the computer will execute instructions consecutively 
unless told specifically to do otherwise. Thus, it is easy for a program to acciden- 
tally fall through to a section that the programmer expects it to reach only via a 
branch. An awkward feature of the 6502 is its lack of an unconditional relative 
branch; you must either use JMP with absolute addressing or set a condition and 
branch on it holding (SEC, BCS, DEST and CLV, BVC DEST). 


ERROR RECOGNITION BY ASSEMBLERS 


Most assemblers will immediately recognize the following common errors: 


* Undefined operation code (usually a misspelling or an omission) 

e Undefined name (often a misspelling or an omitted definition) 

* Illegal character (for example, a 2 in a binary number or a B in a decimal 
number) 

- Шева! format (for example, an incorrect delimiter or the wrong register or 
operand) 

: Illegal value (usually a number too large for 8 or 16 bits) 

* Missing operand 

: Double definition (two different values assigned to one name) 

· Шева! label (for example, a label attached to a pseudo-operation that does 
not allow a label) 

: Missing label (for example, on ап = pseudo-operation that requires one). 
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These errors are generally easy to correct. Often the only problem is an error, 
such as omitting the semicolon or other delimiter in front of a comment, that 
confuses the assembler and results in a series of meaningless error messages. 

There are, however, many common errors that assemblers will not recognize. 
The programmer should be aware that his or her program may contain such 
errors even if the assembler does not report them. Typical examples are 


- Omitted lines. Obviously, the assembler cannot identify a completely omit- 
ted line unless that line contains a label or definition that is used later in the pro- 
gram. The easiest lines to omit are repetitions (that is, one or more lines that are 
the same or sequences that start the same) or instructions that seem to be 
unnecessary. Typical repetitions are series of shifts, branches, increments, or 
decrements. Instructions that may appear unnecessary include CLC, SEC, and so 
forth. 

- Omitted designations. The assembler cannot tell if you omitted a designation 
such аз +, Н, $, B, or % unless the omission results in an illegal character (such as 
C in a decimal number). Otherwise, the assembler will assume all addresses to be 
direct and all numbers to be decimal. Problems occur with numbers that are valid 
as either decimal or hexadecimal values (such as 44 or 2050) and with binary 
numbers (such as 00000110). 


* Misspellings that are still valid. Typical examples are typing BCC instead of 
BCS, LDX instead of LDY, and SEC instead of SED. Unless the misspelling is 
invalid, the assembler has no way of knowing what you meant. Valid misspellings 
are often a problem if you use similar names or labels such as XXX and XXXX, 
L121 and L112, or VARII and VARII. 


e Designating instructions as comments. If you place a semicolon at the start of 
an instruction line, the assembler will treat the line as a comment. This can be a 
perplexing error, since the line appears in the listing but is not assembled into 
object code. 


Sometimes you can confuse the assembler by entering invalid instructions. An 
assembler may accept a totally illogical entry simply because its developer never 
considered such possibilities. The result can be unpredictable, much like the 
results of giving someone a completely wrong number (for example, a telephone 
number instead of a street address or a driver license number instead of a credit 
card number). Some cases in which a 6502 assembler can go wrong are 

* If you designate an impossible register or addressing mode. Some assemblers 
will accept instructions like INC A, LDA ($40),X, or LDY BASE,Y. They will 
produce erroneous object code without any warning. 


- If you enter an invalid digit, such as Q in a decimal or hexadecimal number 
or 7 in a binary number. Some assemblers will assign values to such erroneous 
digits in an aribitrary manner. 
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* If you enter an invalid operand such as LDA 3F$HX. Some assemblers will 
accept this and generate incorrect code. 


The assembler will recognize only errors that its developer anticipated. Pro- 
grammers are often able to make mistakes that the developer never imagined, 
much as automobile drivers are often capable of performing maneuvers that 
never occurred in the wildest dreams of a highway designer or traffic planner. 
Note that only a line-by-line hand checking of the program will find errors that 
the assembler does not recognize. 


IMPLEMENTATION ERRORS 


Occasionally, a microprocessor's instructions simply do not work the way the 
designers or anyone else would expect. The 6502 has one implementation error 
that is, fortunately, quite rare. The instruction JMP ($XXFF) where the Xs 
represent any page number, does not work correctly. One would expect this 
instruction to obtain the destination address from memory locations XXFF and 
(XX + 1)00. Instead, it apparently does not increment the more significant byte 
of the indirect address; it therefore obtains the destination address from memory 
locations XXFF and XX00. For example, JMP ($1CFF) will jump to the address 
stored in memory locations 1CFF,, (LSB) and 1С00,, (MSB), surely a curious 
outcome. Most assemblers expect the programmer to ensure that no indirect 
jumps ever obtain their destination addresses across page boundaries. 


COMMON ERRORS IN 1/0 DRIVERS 


Most errors in I/O drivers involve both hardware and software, so they are 
often difficult to categorize. Some mistakes you should watch for are 


- Confusing input ports and output ports. Many I/O interfaces use the READ/ 
WRITE line for addressing, so that reading and writing the same memory address 
results in operations on different physical registers. Even when this is not done, it 
may still be impossible to read back output data unless it is latched and buffered. 


- Attempting to perform operations that are physically impossible. Reading 
data from an output device (such as a display) or sending data to an input device 
(such as a keyboard) makes no physical sense. However, accidentally using the 
wrong address will cause no assembly errors; the address, after all, is valid and the 
assembler has no way of knowing that certain operations cannot be performed on 
it. Similarly, a program may attempt to save data in a nonexistent address or in a 
ROM. 
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“ Forgetting implicit hardware effects. Sometimes transferring data to or from 
a port will change the status lines automatically, particularly if you are using a 
6520 or 6522 parallel interface. Even reading or writing a port while debugging a 
program will change the status lines. Be particularly careful of instructions like 
comparisons and BIT which read a memory address even though they do not 
change any registers, and instructions like decrement, increment, and shift which 
both read and write a memory address (the actual operation, of course, takes 
place inside the processor). 


* Reading or writing without checking status. Many devices can accept or pro- 
vide data only when a status line indicates they are ready. Transferring data to or 
from them at other times will have unpredictable effects. 


- Ignoring the differences between input and output. Remember that an input 
device normally starts out in the not ready state — it has no data available 
although the computer is ready to accept data. On the other hand, an output 
device normally starts out in the ready state, that is, it could accept data but the 
computer usually has none to send it. In many situations, particularly when using 
6520, 6522, 6551, or 6850 devices, you may have to disable the outputs initially 
or send a null character (something that has no effect) to each output port just to 
change its state from ready to not ready initially. 


- Failing to keep copies of output data. Remember that you may not be able to 
read the data back from the output port. If you need to repeat it later as part of 
repeating a transmission that was incorrectly received, change part of it (turn on 
or off one of several indicator lights attached to the same port), or save it as part 
of the interrupted status (the data is the current priority level). You must save a 
copy in memory. The copy must be updated every time the actual data is changed. 


* Reading data before it is stable or while it is changing. Be sure that you 
understand exactly when the input device is guaranteed to produce stable data. In 
the case of switches that may bounce, you may want to sample them twice (more 
than a debouncing time apart) before taking any action. In the case of keys that 
may bounce, you may want to take action only when they are released rather than 
when they are pressed. The action on release also forces the operator to release 
the key rather than holding it down. In the case of persistent data (such as in 
serial I/O), you should center the reception, that is, read the data near the centers 
of the pulses rather than at the edges where the values may be changing. 


“ Forgetting to reverse the polarity of data being transferred to or from devices 
that operate in negative logic. Many simple I/O devices, such as switches and dis- 
plays, use negative logic. A logic 0 means that a switch is closed or a display is lit. 
Common ten-position switches or dials also often produce data in negative logic, 
as do many encoders. The solution is simple — complement the data (using EOR 
+$FF) after reading it or before sending it. 
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* Confusing actual I/O ports with registers that are inside I/O devices. Pro- 
grammable I/O devices, such as the 6520, 6522, 6551, and 6850, have control or 
command registers which determine how the device operates, and status registers 
that reflect the current state of the device or the transfer. These registers are 
inside the I/O devices; they are not connected to peripherals. Transferring data to 
or from status or control registers is not the same as transferring data to or from 
actual I/O ports. 


* Using bidirectional ports improperly. Many devices, such as the 6520, 6522, 
6530, and 6532, have bidirectional I/O ports. The ports (and perhaps even 
individual lines) can be used either as inputs or outputs. Normally, resetting the 
computer to avoid initial transients makes these ports inputs, so you must 
explicitly change them to outputs if necessary. Be cautious when reading bits or 
ports that are designated as outputs or writing into bits or ports that are desig- 
nated as inputs. The only way to determine what will happen is to read the docu- 
mentation for the specific device. 


- Forgetting to clear status after performing an I/O operation. Once the pro- 
cessor has read data from an input port, that port should revert to the not ready 
state. Similarly, once the processor has written data into an output port, that port 
should revert to the not ready state. Some I/O devices change the status of their 
ports automatically after input or output operations, but others either do not or 
(as in the 6520) change status automatically only after input operations. Leaving 
the status set can result in an endless loop or highly erratic operation. 


COMMON ERRORS IN 
INTERRUPT SERVICE ROUTINES 


Many interrupt-related errors involve both hardware and software, but some 
of the common mistakes include the following: 


- Failing to reenable interrupts during the service routine. The 6502 processor 
automatically disables interrupts after accepting one. It does reenable interrupts 
when RTI is executed, since RTI restores the status register from the stack. 


· Failing to save and restore registers. The 6502 does not automatically save 
any registers except the program counter and the status register. So the 
accumulator, index registers, and scratchpad locations must be saved explicitly in 
the stack. 


Saving or restoring registers in the wrong order. Registers must be restored 
in the opposite order from that in which they were saved. 
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- Enabling interrupts before establishing priorities and other parameters of the 
interrupt system. 


* Forgetting that the response to an interrupt includes saving the status 
register and the program counter at the top of the stack. The status register is on 
top and the program counter value is the actual return address, so the situation 
differs from subroutines in which the return address minus 1 is normally at the 
top of the stack. 


* Not disabling the interrupt during multibyte transfers or instruction 
sequences that cannot be interrupted. In particular, you must avoid partial updat- 
ing of data (such as time) that an interrupt service routine may use. In general, 
interrupts should be disabled when the main program is changing memory loca- 
tions that it shares with interrupt service routines. 


* Failing to reenable the interrupt after a sequence that must run with inter- 
rupts disabled. A corollary problem here is that you do not want to enable inter- 
rupts if they were not enabled when the sequence was entered. The solution is to 
save the previous state of the Interrupt Disable flag (using PHP) before execut- 
ing the sequence and restore the previous state (using PLP) afterward. Note, 
however, that PLP restores the entire status register. 


* Failing to initialize or establish the value of the Decimal Mode flag. An inter- 
rupt service routine should not assume a particular value (0) for the D flag. 
Instead, it should initialize that flag with CLD or SED if it executes ADC or SBC 
instructions. There is no need to save or restore the old D flag since that is done 
automatically as part of the saving and restoring of the status register. Initializing 
the D flag avoids problems if the service routine is entered from a program that 
runs with the D flag set. 


* Failing to clear the signal that caused the interrupt. The service routine must 
clear the interrupt even if it does not require an immediate response or any input 
or output operations. Even when the processor has, for example, no data to send 
to an interrupting output device, it must still either clear the interrrupt or disable 
it. Otherwise, the processor will get caught in an endless loop. Similarly, a real- 
time clock interrupt will typically require no servicing other than an updating of 
time, but the service routine still must clear the clock interrupt. This clearing may 
involve reading a 6520 or 6522 I/O port or timer. 


* Failing to communicate with the main program. The main program will not 
realize that the interrupt has been serviced unless it is informed explicitly. The 
usual way to inform the main program is to have the interrupt service routine 
change a flag that the main program can examine. The main program will then 
know that the service routine has been executed. The procedure is comparable to 
the practice of a postal patron raising a flag to indicate that he or she has mail to be 
picked up. The postman lowers the flag after picking up the mail. Note that this 
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simple procedure means that the main program must examine the flag often 
enough to avoid missing data or messages. Of course, the programmer can always 
provide an intermediate storage area (or buffer) that can hold many data items. 


· Failing to save and restore priority. The priority of an interrupt is often held 
in a write-only register or in a memory location. That priority must be saved just 
like the registers and restored properly at the end of the service routine. If the 
priority register is write-only, a copy of its contents must be saved in memory. 


Introduction to the 
Program Section 


The program section contains sets of assembly language subroutines for the 
6502 microprocessor. Each subroutine is documented with an introductory sec- 
tion and comments; each is followed by at least one example of its use. The 
introductory material contains the following information: 


]. Purpose of the routine 
. Procedure followed 

. Registers used 

. Execution time 
Program size 

Data memory required 
. Special cases 

. Entry conditions 


. Exit conditions 


== 
e 


. Examples 


We have made each routine as general as possible. This is most difficult in the 
case of the input/output (I/O) and interrupt service routines described in Chap- 
ters 10 and 11, since in practice these routines are always computer-dependent. 
In such cases, we have limited the computer dependence to generalized input and 
output handlers and interrupt managers. We have drawn specific examples there 
from the popular Apple II computer, but the general principles are applicable to 
other 6502-based computers as well. 

In all routines, we have used the following parameter passing techniques: 


l. A single 8-bit parameter is passed in the accumulator. A second 8-bit 
parameter is passed in index register Y. 
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2. Asingle 16-bit parameter is passed in the accumulator and index register Y 
with the more significant byte in the accumulator. An accompanying 8-bit 
parameter is passed in index register X. 


3. Larger numbers of parameters are passed in the stack, either directly or 
indirectly. We assume that subroutines are entered via a JSR instruction that 
places the return address at the top of the stack, and hence on top of the 
parameters. 


Where there has been a choice between execution time and memory usage, we 
have chosen the approach that minimizes execution time. For example, in the 
case of arrays that are more than 256 bytes long, it is faster to handle the full 
pages, then handle the remaining partial page separately, than to handle the 
entire array in a single loop. The reason is that the first approach can use an 8-bit 
counter in an index register, whereas the second approach requires a 16-bit 
counter in memory. 

We have also chosen the approach that minimizes the number of repetitive 
calculations. For example, in the case of array indexing, the number of bytes be- 
tween the starting addresses of elements differing only by one in a particular 
subscript (known as the size of that subscript) depends only on the number of 
bytes per element and the bounds of the array. Thus, the sizes of the various 
subscripts can be calculated as soon as the bounds of the array are known; the 
sizes are therefore used as parameters for the indexing routines, so that they need 
not be calculated each time a particular array is indexed. 

AS for execution time, we have specified it for most short routines. For longer 
routines, we have given an approximate execution time. The execution time of 
programs involving many branches will obviously depend on which path is 
followed in a particular case. This is further complicated for the 6502 by the fact 
that branch instructions themselves require different numbers of clock cycles 
depending on whether the branch is not taken, taken within the current page, or 
taken across a page boundary. Thus, a precise execution time is often impossible 
to define. The documentation always contains at least one typical example show- 
ing an approximate or maximum execution time. 

Our philosophy on error indications and special cases has been the following: 


1. Routines should provide an easily tested indicator (such as the Carry flag) 
of whether any errors or exceptions have occurred. 


2. Trivial cases, such as no elements in an array or strings of zero length, 
should result in immediate exits with minimal effect on the underlying data. 


3. Misspecified data (such as a maximum string length of zero or an index 
beyond the end of an array) should result in immediate exits with minimal effect 
on the underlying data. 
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4. The documentation should include a summary of errors and exceptions 
(under the heading of ‘‘Special Cases”). 


5. Exceptions that may actually be convenient for the user (such as deleting 
more characters than could possibly be left in a string rather than counting the 
precise number) should be handled in a reasonable way, but should still be indi- 
cated as errors. 


Obviously, no method of handling errors or exceptions can ever be completely 
consistent or well suited to all applications. We have taken the approach that a 
reasonable set of subroutines must deal with this issue, rather than ignoring it or 
assuming that the user will always provide data in the proper form. 

The subroutines are listed as follows: 


Code Conversion 


4A Binary to BCD Conversion 163 

4B BCD to Binary Conversion 166 

1C Binary to Hexadecimal ASCII Conversion 168 

4D Hexadecimal ASCII to Binary Conversion 171 

4E Conversion of a Binary Number to a String of ASCII Decimal Digits 174 
4F Conversion of a String of ASCII Decimal Digits to a Binary Number 180 
4G  Lower-Case ASCII to Upper-Case ASCII Conversion 185 

АН ASCII to EBCDIC Conversion 187 

4] EBCDIC to ASCII Conversion 190 


Array Manipulation and Indexing 


SA Memory Fill 193 

SB Віоск Move 197 

5C One-Dimensional Byte Array Indexing 204 
SD One-Dimensional Word Array Indexing 207 
SE Two-Dimensional Byte Array Indexing 210 
SF Two-Dimensional Word Array Indexing 215 
3G N-Dimensional Array Indexing 221 


Arithmetic 


6A  16-Bit Addition 230 

6B 16-Bit Subtraction 233 
6C 16-Ви Multiplication 236 
6D  16-Bit Division 240 
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16-Bit Comparison 249 

Multiple-Precision Binary Addition 253 
Multiple-Precision Binary Subtraction 257 
Multiple-Precision Binary Multiplication 261 
Multiple-Precision Binary Division 267 
Multiple-Precision Binary Comparison 275 
Multiple-Precision Decimal Addition 280 
Multiple-Precision Decimal Subtraction 285 
Multiple-Precision Decimal Multiplication 290 
Multiple-Precision Decimal Division 297 
Multiple-Precision Decimal Comparison 305 


Bit Manipulation and Shifts 


TA 


Bit Set 306 

Bit Clear 309 

Bit Test 312 

Bit Field Extraction 315 

Bit Field Insertion 320 

Multiple-Precision Arithmetic Shift Right 325 
Multiple-Precision Logical Shift Left 329 
Multiple-Precision Logical Shift Right 333 
Multiple-Precision Rotate Right 337 
Multiple-Precision Rotate Left 341 


String Manipulation 


8A 


String Comparison 345 

String Concatenation 349 

Find the Position of aSubstring 355 
Copy a Substring from aString 361 
Delete а Substring froma String 368 
Insert a Substring into a String 374 


Array Operations 


9A 


8-Bit Array Summation 382 

16-Bit Array Summation 385 

Find Maximum Byte-Length Element 389 
Find Minimum Byte-Length Element 393 
Binary Search 397 

Bubble Sort 403 


9G 
9H 
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RAM Test 407 
Jump Table 415 


Input/Output 


10A 
10B 
10C 
10D 
10E 
10F 
10G 
10H 


Read a Line of Characters from a Terminal 418 
Write a Line of Characters to an Output Device 425 
Generate Even Parity 428 

Check Parity 431 

CRC-16 Checking and Generation 434 

I/O Device Table Handler 440 

Initialize I/O Ports 454 

Delay Milliseconds 460 


Interrupts 
Unbuffered Interrupt-Driven Input/Output Using a 6850 АСТА 464 


ПА 
ИВ 
11C 
11D 


Unbuffered Interrupt/Driven Input/Output Using a 6522 МА 472 


Buffered Interrupt-Driven Input/Output Using a 6850 АСТА 480 
Real-Time Clock and Calendar 490 
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Binary to BCD Conversion 


(BN2BCD) 4A 


Converts one byte of binary data to two 
bytes of BCD data. 

Procedure: The program subtracts 100 
repeatedly from the original data to deter- 
mine the hundreds digit, then subtracts ten 
repeatedly from the remainder to determine 
the tens digit, and finally shifts the tens digit 
left four positions and combines it with the 
ones digit. 


Registers Used: All 


Execution Time: 133 cycles maximum, depends 
on the number of subtractions required to deter- 
mine the tens and hundreds digits. 


Program Size: 38 bytes 


Data Memory Required: One byte anywhere in 
RAM (address TEMP). 


Entry Conditions 


Binary data in the accumulator. 


Examples 
1. Data: (А) = 6Е в (110 decimal) 


Result: (А) = 01 (hundreds digit) 
(Y) = 10,6 (tens and ones digits) 


“с чо че зе TO че че чо 


bytes of BCD 


Entry: Register A - 
Exit: Register A = 
Register Y = 


се зо ao че че че че че че 


-- 


Title Binary to BCD conversion 
Name: BN2BCD 
Purpose: Convert one byte of binary data to two 


Exit Conditions 


Hundreds digit in the accumulator 
Tens and ones digits in index register Y. 


2. Data: (А) = B7, (183 decimal) 


Result: (А) = 01, (hundreds digit) 
(Y) = 83 4 (tens and ones digits) 


=e че че че че че че чо 


дага 
binary data 


high byte of BCD data 
low byte of BCD data 


me че че че чо че че Че WO 
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Registers used: А11 


Time: 133 cycles maximum 
Size: Program 38 bytes 
Data l byte 


=e «о че че чо aa че WE 
че че чо че че че чо чо 


BN2BCD: 

: CALCULATE 100'S DIGIT 

Н DIVIDE BY 100 

z У = QUOTIENT 

; A = REMAINDER 

LDY #0ЕЕН ¿START QUOTIENT AT -1 

SEC ;SET CARRY FOR INITIAL SUBTRACTION 
01001Р: 

INY ;ADD 1 TO QUOTIENT 

SBC $100 ;SUBTRACT 100 

BCS р1001,Р ¿BRANCH IF А IS STILL LARGER THAN 100 

ADC 8100 ;ADD THE LAST 100 BACK 

TAX ¿SAVE REMAINDER 

TYA 

PHA ? ЗАУЕ 100'S DIGIT ON THE STACK 

TXA ? GET REMAINDER 

; CALCULATE 10'S AND 1'S DIGITS 

; DIVIDE REMAINDER OF THE 100'S DIGIT BY 10 

; Y = 10'S DIGIT 

; А = 1'S DIGIT 

LDY #0FFH ;START QUOTIENT AT -1 

SEC ¿SET CARRY FOR INITIAL SUBTRACTION 
DlOLP: 

INY ;ADD 1 TO QUOTIENT 

SBC $10 

BCS DlOLP ;,BRANCH ТЕ А IS STILL LARGER THAN 10 

ADC $10 ;ADD THE LAST 10 BACK 

¿COMBINE 1'S AND 10'S DIGITS 

STA TEMP :5АУЕ 1'S DIGIT 

TYA ;GET 10'S DIGIT 

ASL A 

ASL A 

ASL A 

ASL A ¿MOVE 10'S TO HIGH NIBBLE OF А 

ORA TEMP ‚ОВ IN THE 1'S DIGIT 

;RETURN WITH Y = LOW BYTE A = HIGH BYTE 

TAY ¿PLACE IN REG Y 

PLA ;GET 100'S DIGIT 

RTS 
;DATA 


TEMP: ·.ВІОСК 1 ; TEMPORARY USED TO COMBINE 1'S AND 10'S DIGITS 


оо че че чо чо 


SC0401: 


4A BINARY TO BCD CONVERSION (BN2BCD) 


SAMPLE EXECUTION: 


; CONVERT 0A HEXADECIMAL TO 10 BCD 


LDA %0АН 

JSR BN2BCD 

BRK ;A=0, Y=10H 
;CONVERT FF HEXADECIMAL TO 255 BCD 
LDA #0ЕЕН 

JSR BN2BCD 

BRK ;A-02H, Y=55H 
;CONVERT 0 HEXADECIMAL TO 0 BCD 

LDA #0 

JSR BN2BCD 

BRK ;A-0, Y=0 


. END 


165 


че че че чо чо 


BCD to Binary Conversion (BCD2BN) 4B 


Converts one byte of BCD data to one 


byte of binary data. Registers Used: A, P, Y 
Procedure: The program masks off the Execution Time: 38 cycles 
more significant digit, multiplies it by ten Program Size: 24 bytes 
using shifts (10 = 8 + 2, and multiplying by Data Memory Required: One byte anywhere in 


eight or by two is equivalent to three or one RAM (Address TEMP). 
left shifts, respectively), and adds the pro- 
duct to the less significant digit. 


Registers used: A,P,Y 


Entry Conditions Exit Conditions 
BCD data in the accumulator. Binary data in the accumulator. 
Examples 
1. Data: (А) = 99, 2. Data: (A) 2234 

Result: (А) = 63 = 99 Result: (А) = 17), = 234g 
; ; 
; ; 
; ; 
; Title BCD to binary conversion H 
; Name: BCD2BN ; 
; i 
; Purpose: Convert one byte of BCD data to one ; 
; byte of binary data ; 
; Entry: Register A = BCD data ; 
3 Exit: Register A = Binary data ; 
P ; 
; ; 
; ; 


Time: 38 cycles 


amb 
o 
o 
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Size: Program 24 bytes 
Data l byte 


me че че че чо 
ча wo че че чо 


BCD2BN: 
;MULTIPLY UPPER NIBBLE BY 10 AND SAVE IT 
; TEMP :- UPPER NIBBLE % 10 WHICH EQUALS UPPER NIBBLE * (8 + 2) 
TAY ¿SAVE ORIGINAL VALUE 
AND #ОЕОН ‚СЕТ UPPER NIBBLE 
LSR A ;DIVIDE BY 2 WHICH = UPPER NIBBLE * 8 
STA TEMP :5АУЕ * 8 
LSR A ¿DIVIDE BY 4 
LSR A ;DIVIDE BY 8: A = UPPER NIBBLE * 2 
CLC 
ADC TEMP 
STA TEMP : КЕС A = UPPER NIBBLE * 10 
TYA ;GET ORIGINAL VALUE 
AND #0ЕН ? СЕТ LOWER NIBBLE 
СЪС 
ADC TEMP ;ADD TO UPPER NIBBLE 
RTS 
; DATA 


TEMP: ‚ВОСК 1 


SAMPLE EXECUTION: 


me wo че чо чо 
че we че че чо 


SC0402: 
CONVERT 0 BCD TO 0 HEXADECIMAL 
LDA #0 
JSR BCD2BN 
BRK ;A=0 
¿CONVERT 99 BCD ТО 63 HEXADECIMAL 
LDA #099H 
JSR BCD2BN 
BRK ; A-63H 
CONVERT 23 BCD TO 17 HEXADECIMAL 
LDA #23H 
JSR BCD2BN 
BRK sA=17H 


. END 


Binary to Hexadecimal ASCII Conversion 
(BN2HEX) 4C 


Converts one byte of binary data to two 
ASCII characters corresponding to the two 
hexadecimal digits. 

Procedure: The program masks off each 
hexadecimal digit separately and converts it 
to its ASCII equivalent. This involves a sim- — 
ple addition of 30,, if the digit is decimal. If | of seven must be added to handle the break 
the digit is non-decimal, an additional factor between ASCII 9 (39,,) and ASCII A (41,2. 


Registers Used: All 


Execution Time: 77 cycles plus three extra cycles 
for each non-decimal digit. 


Program Size: 31 bytes 


Data Memory Required: None 


Entry Conditions Exit Conditions 


Binary data in the accumulator. ASCII equivalent of more significant 
hexadecimal digit in the accumulator 
ASCII equivalent of less significant 
hexadecimal digit in index register Y. 


Examples 
1. Data: (A) = ЕВ, 2. Data: (A) = 594 

Result: (А) — 46,4 (ASCII Е) Result: (A) = 35, (ASCII 5) 

(Y) = 426 (ASCII B) (Y) = 39,4 (ASCII 9) 

Н P 
; Title Binary to hex ASCII ; 
; Name: BN2HEX - 
; ; 
; ; 
; Purpose: Convert one byte of binary data to ; 
; two ASCII characters ; 
А Entry: Register A - Binary data ; 
; Exit: Register A = First ASCII digit, high order value; 


Register Y = Second ASCII digit, low order value; 
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Registers used: All 
Time: Approximately 77 cycles 


Size: Program 31 bytes 


че чо че че чо чо чо че 
не чо че чо че чо че че 


BN2HEX: 
7 
? CONVERT HIGH NIBBLE 
TAX ; SAVE ORIGINAL VALUE 
AND %0Е ОН ;GET HIGH NIBBLE 
LSR A 
LSR A 
LSR A 
LSR A ;MOVE TO LOWER NIBBLE 
JSR NASCII ;CONVERT TO ASCII 
PHA ;SAVE IT ON THE STACK 
;CONVERT LOW NIBBLE 
TXA 
AND #ОЕН :СЕТ LOW NIBBLE 
JSR NASCII CONVERT TO ASCII 
TAY ;LOW NIBBLE TO REG Y 
PLA ;HIGH NIBBLE TO REG A 
RTS 


г 

;SUBROUTINE NASCII 

; PURPOSE: CONVERT A HEXADECIMAL DIGIT TO ASCII 
ENTRY: А BINARY DATA IN LOWER NIBBLE 

SEXIT: А ASCII CHARACTER 

;REGISTERS USED: A,P 


° 
, 


NASCII: 

CMP #10 

BCC NASI ? ВКАНСН IF HIGH NIBBLE < 10 

CLC 

ADC #7 ¿ELSE ADD 7 SO AFTER ADDING '0' THE 

; CHARACTER WILL BE IN 'A'..'r' 

NAS1: 

ADC #'0' ‚МАКЕ A CHARACTER 

RTS | 


SAMPLE EXECUTION: 


we e че че ча 
че че че че чо 
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5С0403: 


;CONVERT 0 ТО "00" 


LDA $0 

JSR BN2HEX 
BRK 

;CONVERT FF HEX TO 
LDA $0FFH 

JSR BN2HEX 

BRK 

;CONVERT 23 HEX TO 
LDA #2 3H 

JSR BN 2HEX 

BRK 


. END 


;A='0'=30H, Y='0'=30H 


"ЕЕ" 


;A='F'=46H, Y='F'=46H 
123° 


;A='2'=32H, Y='3'=33H 


Hexadecimal ASCII to Binary Conversion 


(HEX2BN) 


. Converts two ASCII characters (repre- 
senting two hexadecimal digits) to one byte 
of binary data. 

Procedure: The program converts each 
ASCII character separately to a hexadecimal 
digit. This involves a simple subtraction of 
30,, (ASCII zero) if the digit is decimal. If the 
digit is non-decimal, an additional factor of 
seven must be subtracted to handle the break 
between ASCII 9 (39,,) and ASCII A (41,,). 
The program then shifts the more significant 
digit left four bits and combines it with the 


Entry Conditions 


More significant ASCII digit in the 
accumulator, less significant ASCII 
digit in index register Y. 


4D 


Registers Used: A, P, Y 


Execution Time: 74 cycles plus three extra cycles 
for each non-decimal digit. 


Program Size: 30 bytes 


Data Memory Required: One byte anywhere in 
RAM l(address TEMP). 


less significant digit. The program does not 
check the validity of the ASCII characters 
(i.e., whether they are, in fact, the ASCII 
representations of hexadecimal digits). 


Exit Conditions 


Binary data in the accumulator. 


Examples: 
1. Data: (А) = 44, (ASCII D) 2. Data: (A) = 31% (ASCII 1) 
(Y) = 37 (ASCII 7) (Y) = 42,6 (ASCII B) 
Result: (А) = 076 Result: (А) = 1Bi¢ 
; ; 
U Title Hex ASCII to binary ; 
H Name: HEX2BN ; 
Purpose: Convert two ASCII characters to one 


ео w ще чо 


byte of binary data 


чө че че що 
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Entry: Register A = First ASCII digit, high order value; 
Register Y - Second ASCII digit, low order value; 
Exit: Register A - Binary data 


Registers used: A,P,Y 


чо «о чо чо VO че че че че WE чо WS че 


че чо we че че че че че чо че ә 


Time: Approximately 74 cycles 
Size: Program 30 bytes 
Data l byte 
HEX2BN: 
PHA ? SAVE HIGH CHARACTER 
TYA ;GET LOW CHARACTER 
JSR A2HEX ; CONVERT IT 
STA TEMP :5АУЕ LOW NIBBLE 
PLA ;GET THE HIGH CHARACTER 
JSR A2HEX ;CONVERT IT 
ASL A 
ASL A 
ASL A 
ASL A ;SHIFT HIGH NIBBLE TO THE UPPER 4 BITS 
ORA TEMP ‚ОК IN THE LOW NIBBLE 
RTS 


a 

;SUBROUTINE: A2HEX 

; PURPOSE: CONVERT ASCII ТО A HEX NIBBLE 

;ENTRY: A = ASCII CHARACTER 

;EXIT: A = BINARY VALUE OF THE ASCII CHARACTER 
;REGISTERS USED: A,P 


е 
? 


АЗНЕХ: 
SEC ; SUBTRACT ASCII OFFSET 
SBC #'0' 
СМР #10 | 
BCC А2НЕХ1 ;BRANCH IF А IS А DECIMAL DIGIT 
SBC $7 ;ELSE SUBTRACT OFFSET FOR LETTERS 
А2НЕХ1: 
RTS 
; DATA 


TEMP: .BLOCK 1 


SAMPLE EXECUTION: 


че we че че чо 
че че че че чо 


SC0404: 


4D HEXADECIMAL ASCII TO BINARY CONVERSION (HEX2BN) 


;CONVERT 'С7' TO C7 HEXADECIMAL 


LDA $'C' 

LDY #'7' 

JSR HEX2BN 

BRK ;A-C'H 
;CONVERT '2F' TO 2F HEXADECIMAL 
LDA $'2' 

LDY # "Е" 

JSR HEX2BN ;A-2FH 
BRK 

;CONVERT '23' TO 23 HEXADECIMAL 
LDA $'2' 

LDY $'3' 

JSR HEX2BN 

BRK ;A-23H 


. END 
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Conversion of a Binary Number to Decimal ASCII 


(BN2DEC) 


4E 


Converts а 16-bit signed binary number 
to an ASCII string, consisting of the length of 
the number (in bytes), an ASCII minus sign 
(if necessary), and the ASCII digits. 

Procedure: The program takes the absolute 
value of the number if it is negative and then 
keeps dividing by ten until it produces a quo- 
tient of zero. It converts each digit of'the quo- 
tient to ASCII (by adding ASCII 0) and con- 
catenates the digits along with an ASCII 
minus sign (in front) if the original number 
was negative. 


Entry Conditions 


Order in stack (starting from the top) 


Less significant byte of return address 
More significant byte of return address 


Less significant byte of output buffer address 
More significant byte of output buffer 
address 


Less significant byte of value to convert 
More significant byte of value to convert 


Examples 


1. Data: Value to convert = ЗЕВ7 6 


Result (in output buffer): 
05 (number of bytes in buffer) 
31 (ASCII 1) 
36 (ASCII 6) 
30 (ASCII 0) 
35 (ASCII 5) 
35 (ASCII 5) 


That is, ЗЕВ? 6 = 1605510. 
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Registers Used: All 
Execution Time: Approximately 7,000 cycles 
Program Size: 174 bytes 


Data Memory Required: Seven bytes anywhere 
in RAM for the return address (two bytes starting 
at address RETADR), the sign of the original 
value (address NGFLAG), temporary storage for 
the original value (two bytes starting at address 
VALUE), and temporary storage for the value 
mod 10 (two bytes starting at address MOD10). 
Also, two bytes on page 0 for the buffer pointer 
(address BUFPTR, taken аз 00D0,, and 000115 
in the listing). This data memory does not include 
the output buffer which should be seven bytes 
long. 


Exit Conditions 
Order in buffer 


Length of the string in bytes 
ASCII - (if original number was negative) 
ASCII digits (most significant digit first) 


2. Data: Value to convert = РЕС8 6 


Result (in output buffer): 
03 (number of bytes in buffer) 
2D (ASCII —) 
35 (ASCII 5) 
36 (ASCII 6) 


That is, ЕЕС8 6 = — 5610, when considered as a 
signed two’s complement number. 


Title 
Name: 


me ча че чо че че BO WE 


Purpose: 


Entry: 


Exit: 


Time: 


Size: 


“с Ге чо чо чо че че че че чо чо WS чо WH чо че WH че We че чо че че че 


Registers used: 


; PAGE ZERO POINTER 


BUFPTR: .EQU 


; PROGRAM 
BN2DEC: 


ODOH 


;SAVE PARAMETERS 


PLA 
STA 
PLA 
STA 
PLA 
STA 
PLA 
STA 
STA 
BPL 
LDA 
SEC 
SBC 
STA 


RETADR 
RETADR+1 
VALUE 
VALUE+1 
NGF LAG 
GETBP 

#0 


VALUE 
VALUE 


4E BINARY NUMBER TO ASCII DECIMAL STRING (BN2DEC) 


Binary to decimal ASCII 
BN2DEC 


Convert a 16-bit signed binary number 
to ASCII data 


TOP OF STACK 
Low byte of return address, 
High byte of return address, 
Low byte of the output buffer address, 
High byte of the output buffer address, 


Low byte of the value to convert, 
High byte of the value to convert 


The first byte of the buffer is the length, 
followed by the characters. 


All 
Approximately 7,000 cycles 
Program 170 bytes 


Data 7 bytes plus 
2 bytes in page zero 


; PAGE ZERO BUFFER POINTER 


;SAVE LOW BYTE OF RETURN ADDRESS 
;SAVE HIGH BYTE 


;SAVE LOW BYTE OF VALUE 
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чо че че "чо че чо чо че 


"9 чо чо че чо че че чо чо чо че We чо че WE че VO чо чо чо чо чо Че чо 


;SAVE HIGH BYTE OF THE VALUE TO CONVERT 


;SAVE MSB OF VALUE AS SIGN OF VALUE 
;BRANCH IF VALUE IS POSITIVE 


;ELSE TAKE ABSOLUTE VALUE (0 - VALUE) 
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GETBP: 


CNVERT: 


DVLOOP: 


DECCNT: 


LDA #0 

SBC VALUE+1 

STA VALUE+1 

PLA | ¿SAVE STARTING ADDRESS OF OUTPUT BUFFER 
STA BUFPTR 

PLA 

STA BUFPTR-*1 


;SET BUFFER TO EMPTY 


LDA #0 

LDY $0 ;BUFFER[O] := 0 

STA (BUFPTR) ,Y 

H 

? CONVERT VALUE TO A STRING 

¿VALUE := VALUE DIV 10 

? МОО10 := VALUE MOD 10 

LDA $0 

STA MOD10 

STA MOD10-41 

LDX #16 

CLC ¿CLEAR CARRY 

ROL VALUE ¿SHIFT THE CARRY INTO DIVIDEND BIT 0 

ROL VALUE+1 ? ИНТСН WILL BE THE QUOTIENT 

ROL MOD10 ¿AND SHIFT DIVIDEND AT THE SAME TIME 

ROL MOD10+1 | 

; 

;А,У = DIVIDEND ~ DIVISOR 

SEC 

LDA MOD10 

SBC $10 

TAY ;SAVE LOW BYTE IN REG Y 

LDA MOD10+1 

SBC #0 ? SUBTRACT CARRY 

BCC DECCNT ;BRANCH IF DIVIDEND « DIVISOR 

STY MOD10 ; ELSE 

STA МОр10-1 ; NEXT BIT ОЕ QUOTIENT IS A ONE AND SET 
: DIVIDEND := DIVIDEND - DIVISOR 

DEX 

BNE DVLOOP 

ROL VALUE sSHIFT IN THE LAST CARRY FOR THE QUOTIENT 

ROL VALUE+1 


;CONCATENATE THE NEXT CHARACTER 


CONCH: 


EXIT: 


POS: 


° чо 


LDA 
CLC 
ADC 
JSR 


? ТЕ 
LDA 
ORA 
BNE 


LDA 
BPL 
LDA 
JSR 


LDA 
PHA 
LDA 
PHA 
RTS 


MOD10 


$'O' 
CONCAT 


4E BINARY NUMBER TO ASCII DECIMAL STRING (BN2DEC) 


;CONVERT 0..9 TO ASCII '0'..'9' 


VALUE <> 0 THEN CONTINUE 


VALUE 
VALUE+1 
CNVERT 


NGF LAG 
POS 
#'-' 
CONCAT 


RETADR+1 


RETADR 


;SUBROUTINE: СОМСАТ 


;BRANCH IF VALUE IS NOT ZERO 


¿BRANCH IF ORIGINAL VALUE WAS POSITIVE 
: ELSE 
; PUT A MINUS SIGN IN FRONT 


;RETURN 


;PURPOSE: CONCATENATE THE CHARACTER IN REGISTER A TO THE 
FRONT OF THE STRING ACCESSED THROUGH BUFPTR 
BUFPTR[0] = LENGTH | 
REGISTER A CONCATENATED (PLACED IMMEDIATELY AFTER THE LENGTH BYTE) 
;REGISTERS USED: A,P,Y 


; 
; ENTRY: 
; EXIT: 


, 


CONCAT: 


MVELP: 


EXITMR: 


PHA 


? ЗАУЕ THE CHARACTER ON THE STACK 


;MOVE THE BUFFER RIGHT ONE CHARACTER 


LDY 
LDA 
TAY 
BEQ 


#0 
(BUFPTR),Y 


EXITMR 
(BUFPTR),Y 


(BUFPTR) ,Y 


MVELP 


#1 
(BUFPTR) ‚У 
#0 
(BUFPTR),Y 


;GET CURRENT LENGTH 
;BRANCH IF LENGTH = 0 
;GET NEXT CHARACTER 


;STORE IT 


;CONTINUE UNTIL DONE 


‚СЕТ THE CHARACTER BACK FROM THE STACK 
¿STORE THE CHARACTER 


;GET LENGTH BYTE 
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; DATA 

RETADR: 
NGFLAG: 
VALUE: 
MOD10: 


че че че чо чо 


SC0405: 


CLC 
ADC 
STA 


RTS 


. BLOCK 
. BLOCK 
. BLOCK 
. BLOCK 


#1 
(BUFPTR),Y 


N N F N) 


SAMPLE EXECUTION: 


;CONVERT 0 TO '0' 


LDA BUFADR+1 
PHA 

LDA BUF ADR 
PHA 

LDA VALUE1+1 
PHA 

LDA VALUE] 
PHA 

JSR BN2DEC 
BRK 

;CONVERT 32767 TO 
LDA BUFADR+1 
PHA 

LDA BUFADR 
PHA 

LDA VALUE2+1 
PHA 

LDA VALUE2 
PHA 

JSR BN2DEC 
BRK 

;CONVERT -32768 TO 
LDA BUFADR+1 
PHA 

LDA BUFADR 
PHA 

LDA VALUE3+1 
PHA 

LDA VALUE 3 


PHA 


;INCREMENT LENGTH BY 1 
;UPDATE LENGTH 


¿SAVE RETURN ADDRESS 
;SIGN OF ORIGINAL VALUE 
;VALUE TO CONVERT 
;MODULO 10 TEMPORARY 


;HIGH BYTE OF BUFFER ADDRESS 
;LOW BYTE BUFFER ADDRESS 
;HIGH BYTE OF VALUE 

;LOW BYTE OF VALUE 


; CONVERT 
;BUFFER SHOULD = "0" 


'32767' 


;HIGH BYTE OF BUFFER ADDRESS 
;LOW BYTE BUFFER ADDRESS 
;HIGH BYTE OF VALUE 

;LOW BYTE OF VALUE 


; CONVERT 
;BUFFER SHOULD = '32767' 


'-32768' 


;HIGH BYTE OF BUFFER ADDRESS 
;LOW BYTE BUFFER ADDRESS 
;HIGH BYTE OF VALUE 


;LOW BYTE OF VALUE 


=e че чо че чо 


VALUE1: 
VALUE2: 
VALUE3: 
BUFADR: 
BUFFER: 


JSR 
BRK 
JMP 


. WORD 
‚ WORD 
. WORD 
. WORD 
. BLOCK 


. END 


BN2DEC 


SC0405 


0 
32767 
-32768 
BUFFER 
7 


4E BINARY NUMBER TO ASCII DECIMAL STRING (BN2DEC) 


; CONVERT 
;BUFFER SHOULD = !-32768" 


;TEST VALUE 1l 
;TEST VALUE 2 
;TEST VALUE 3 
;BUFFER ADDRESS 
;7 BYTE BUFFER 
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Conversion of ASCII Decimal to Binary 


(DEC2BN) 


4F 


Converts an ASCII string consisting of 
the length of the number (in bytes), a possi- 
ble ASCII — or + sign, and a series of ASCII 
digits to two bytes of binary data. Note that 
the length is an ordinary binary number, not 
an ASCII number. 

Procedure: The program sets a flag if the 
first ASCII character is a minus sign and skips 
over a leading plus sign. It then converts each 
subsequent digit to decimal (by subtracting 
ASCII zero), multiplies the previous digits by 
ten (using the fact that 10=8+2, so a 
multiplication by ten can be reduced to left 
shifts and additions), and adds the new digit 
to the product. Finally, the program subtracts 
the result from zero if the original number 
was negative. The program exits 
immediately, setting the Carry flag, if it finds 
something other than a leading sign or a 
decimal digit in the string. 


Entry Conditions 


(A) = More significant byte of string 
address 

(Y) = Less significant byte of string 
address 


Examples 
1. Data: String consists of 
04 (number of bytes in string) 
31 (ASCII 1) 
32 (ASCII 2) 
33 (ASCII 3) 
34 (ASCII 4) 


That is, the number is + 1,234 4. 
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Registers Used: All 
Execution Time: 670 cycles (approximately) 
Program Size: 171 bytes 


Data Memory Required: Four bytes anywhere in 
RAM for an index, a two-byte accumulator 
(starting address ACCUM), and a flag indicating 
the sign of the number (address NGLAG), two- 
bytes on page zero for a pointer to the string 
(address BUFPTR, taken as 00Е0у and OOF1,, in 


the listing). 
Special Cases: 

l. If the string contains something other than a 
leading sign or a decimal digit, the program 
retu.ns with the Carry flag set to 1. The result in 
registers A and Y is invalid. 

2. If the string contains only a leading sign 
(ASCII + or ASCII —), the program returns 
with the Carry flag set to 1 and a result of zero. 


Exit Conditions 


(A) = More significant byte of binary value 
(Y) = Less significant byte of binary value 


Carry flag is O if the string was valid; Carry 
flag is 1 if the string contained an invalid 
character. Note that the result is a signed 
two's complement 16-bit number. 


Result: (А) = 04, (more significant byte of 
binary data) 
(Y) = C2, (less significant byte of 


binary data) 
That is, the number + 1234 = 04C2;,¢. 


4F ASCII DECIMAL STRING TO BINARY NUMBER (DEC2BN) 1 81 


2. Data: String consists of Result: (A) = 80,6 (more significant byte of binary 
06 (number of bytes in string) data) 
2D (ASCII —) (Y) = 12,4 (less significant byte of binary 
33 (ASCII 3) data) 
32 (ASCII 2) That is, the number — 32,7500 = 80126. 


37 (ASCII 7) 
35 (ASCII 5) 
30 (ASCII 0) 


That is, the number is — 32,750,,. 


me чо че TO че BO TO WE 
+ 
me wo we ча зо че че ZO 


Title Decimal ASCII to binary 

Name: DEC 2BN 

Purpose: Convert ASCII characters to two bytes of binary 
data. 

Entry: Register A = high byte of string address 


Register Y = low byte of string adddress 
The first byte of the string is the length of 
the string. 


Exit: Register A = High byte of the value 
Register Y = Low byte of the value 
IF NO ERRORS THEN | 
CARRY FLAG = 0 
ELSE 
CARRY FLAG = 1 


Registers used: All 


Time: Approximately 670 cycles 
Size: Program 171 bytes 
Data 4 bytes plus 


2 bytes in page zero 


чо че че we че чо че WE WOH TO чо че чо че чо че We TO WS TO чо че че WE 
чо зе че WO 686 We WO Ге чо WE чо BVO Г че чо TO че чо че WH чо че че WO 


; PAGE ZERO LOCATION 


BUFPTR: .EQU OF OH :РАСЕ ZERO POINTER TO STRING 
Н 
; PROGRAM 
DEC2BN: 
STA BUFPTR+1 


STY BUF PTR ;SAVE THE STRING ADDRESS 
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; INITIALIZE 

LDY #0 

LDA (BUFPTR) ,Y ¿GET LENGTH 

TAX ; TO REGISTER X 

LDA #1 

STA INDEX s INDEX := 1 

LDA #0 

STA ACCUM ¿ACCUM := 0 

STA ACCUM+1 

STA NGF LAG ¿SIGN OF NUMBER IS POSITIVE 

;CHECK THAT THE BUFFER IS NOT ZERO 

TXA 

BNE ІМІТІ ;EXIT WITH ACCUM - 0 IF BUFFER IS EMPTY 

JMP EREXIT ;ERROR EXIT IF NOTHING IN BUFFER 
INIT1: 

LDY INDEX 

LDA (BUFPTR),Y ;GET FIRST CHARACTER 

CMP #'-' $15 IT A MINUS ? 

BNE PLUS ? ВКАНСН IF NOT '-' 

LDA $0FFH 

STA NGF LAG ;ELSE SIGN OF NUMBER IS NEGATIVE 

INC INDEX ¿SKIP PAST MINUS SIGN 

DEX ;DECREMENT COUNT 

BEQ EREXIT ;ERROR EXIT IF ONLY '-' IN BUFFER 

JMP CNVERT ¿START CONVERSION 
PLUS: 

CMP #'+' 

BNE CHKDIG ;START CONVERSION IF FIRST CHARACTER IS NOT '+' 

INC INDEX | 

DEX ;DECREMENT COUNT, IGNORE PLUS SIGN 

BEQ EREXIT ;ERROR EXIT IF ONLY "+! IN BUFFER 
CNVERT: 

LDY INDEX 

LDA (BUFPTR),Y ? СЕТ NEXT CHARACTER 
CHKDIG: CMP $'0' 

BMI EREXIT . ;ERROR IF « '0' (NOT A DIGIT) 

CMP #'9'+1 

BPL EREXIT ;ERROR IF > '9' (NOT A DIGIT) 

PHA ? ЗАУЕ THE DIGIT ON THE STACK 


;VALID DECIMAL DIGIT SO 
ACCUM := ACCUM * 10 
ACCUM * (8 + 2) 
(ACCUM * 8) + (ACCUM * 2) 


о че “Х 
пи 


? 

ASL ACCUM 

ROL ACCUM+1 ;TIMES 2 

LDA ACCUM 

LDY ACCUM+1 ;SAVE ACCUM * 2 
ASL ACCUM 

ROL ACCUM+1 

ASL ACCUM 


ROL АССОМ+1 ;TIMES 8 
CLC | 
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ADC ACCUM ;SUM WITH * 2 

STA ACCUM 

TYA 

ADC ACCUM+1 

STA ACCUM+1 ;ACCUM := ACCUM * 10 


sADD IN THE NEXT DIGIT 
; ACCUM := ACCUM + DIGIT 


PLA ‚СЕТ THE DIGIT BACK 
SEC 
SBC #'0' sCONVERT '0'..'9' TO BINARY 0..9 
CLC 
ADC ACCUM 
STA ACCUM 
BCC 0281 BRANCH ТЕ NO CARRY TO HIGH BYTE 
Dem INC ACCUM+1 :ELSE INCREMENT HIGH BYTE 
D2B1: 
INC INDEX : INCREMENT TO NEXT CHARACTER 
DEX 
BNE CNVERT ¿CONTINUE CONVERSION 
LDA NGFLAG 
BPL OKEXIT ‚ВКАМСН IF THE VALUE WAS POSITIVE 
LDA #0 ¿ELSE REPLACE RESULT WITH -RESULT 
SEC 
SBC ACCUM 
STA ACCUM 
LDA #0 
SBC ACCUM+1 
STA ACCUM+1 
;GET THE BINARY VALUE AND RETURN 
OKEXIT: 
|. CLC 
BCC EXIT 
EREXIT: 
SEC 
EXIT: 
LDA ACCUM+1 ;GET HIGH BYTE OF VALUE 
LDY ACCUM 
RTS | 
; DATA 


INDEX:  .BLOCK 
ACCUM: .BLOCK 
NGFLAG: .BLOCK 


¿INDEX INTO THE STRING 
;ACCUMULATED VALUE (2 BYTES) 
¿SIGN OF NUMBER 


= N = 


SAMPLE EXECUTION: 


чөе wo че чо че 
оо чо че че че 
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;AY = ADDRESS OF 51 


А = 04, Y = D2 HEX 


TO 7FFF HEX 


‚АУ = ADDRESS OF 52 


А = ТЕ, У = FF HEX 


TO 8000 HEX 


;AY = ADDRESS OF S3 


А = 80 HEX, Y = 00 HEX 


SC0406: 
;CONVERT '1234' TO 04D2 HEX 
LDA ADRS1+1 
LDY ADRS1 
JSR DEC 2BN 
BRK 
;CONVERT '-32767' 
LDA ADRS2+1 
LDY ADRS2 
JSR DEC 2BN 
BRK 
;CONVERT '-32768' 
LDA ADRS3+1 
LDY ADRS3 
JSR DEC 2BN 
BRK 
sl: .BYTE 4, '1234' 
52: .BYTE 6, '+32767' 
53: .BYTE 6, '-32768' 


ADRS1:  .WORD S1 
ADRS2:  .WORD 52 
ADRS3:  .WORD S3 


. END 


;ADDRESS OF S1 
;ADDRESS OF S2 
;ADDRESS OF $3 


Lower-Case to Upper-Case Translation (LC2UC) 4G 


Converts an ASCII lower-case letter to its 


upper-case equivalent. Registers Used: A, P 

Procedure: The program determines from Execution Time: 18 cycles if the original 
comparisons whether the data is an ASCII character is valid, fewer cycles otherwise. 
lower-case letter. If it is, the program Program Size: 12 bytes 
subtracts 20,, from it, thus converting it to its Data Memory Required: None 


upper-case equivalent. If it is not, the pro- 
gram leaves it unchanged. 


Entry Conditions Exit Conditions 


Character in the accumulator. If the character is an ASCII lower-case 
letter, the upper-case equivalent is in 
the accumulator. If the character is not 
an ASCII lower-case letter, the 
accumulator is unchanged. 


Examples 

1. Data: (A) = 62, (ASCII b) 2. Data: (A) = 74,4 (ASCII t) 

Result: (А) = 42,4 (ASCII B) Result: (А) = 54, (ASCII T) 
! ; 
; Title Lower case to upper case translation ; 
; Name: LC2UC ; 
; ; 
; ; 
; Purpose: Convert one ASCII character to upper case from ; 
; | lower case if necessary. ; 
; ; 
; Entry: Register A = Lower case ASCII character ; 
; ; 
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Exit: Register A = Upper case ASCII character if A 
is lower case, else A is unchanged. 


Registers used: A,P 


me чо чо TO че че че чо че че че 


Time: 18 cycles if A is lower case, less otherwise 
Size: Program 12 bytes 
Data none 
LC2UC: 
CMP #'а' 
BCC $1 ;BRANCH IF < "а" 
CMP #'2'+1 
BCS EXIT ;BRANCH IF > 'z' 
SEC 
SBC #20H ;CHANGE 'a'..'z' into 'A'..'z' 
EXIT: 
RTS 
; 
; 
} ЗАМРЬЕ ЕХЕСОТТОМ: 
; 
; 
SC0407: 
;CONVERT LOWER CASE E TO UPPER CASE 
LDA #'е' 
JSR LC2UC 
BRK ? Аз "Е '=45H 
;CONVERT LOWER CASE 2 ТО UPPER CASE 
LDA $'z' 
JSR LC2UC 
BRK ? Аз !2 '=5AH 
;CONVERT UPPER CASE А TO UPPER CASE А 
LDA $'A' 
JSR LC2UC 
BRK ;A='A'=41H 


. END ;OF PROGRAM 


=e чо че че чо че чо че че *9 че 


че че че че чо 


ASCII to EBCDIC Conversion (ASC2EB) 


4H 


Converts an ASCII character to its 
EBCDIC equivalent. 

Procedure: The program uses a simple 
table lookup with the data as the index and 
address EBCDIC as the base. Printable 
ASCII characters for which there are no 
EBCDIC equivalents are translated to an 
EBCDIC space (40,5); nonprintable ASCII 


Entry Conditions 


ASCII character in the accumulator. 


Registers Used: A, P, Y 
Execution Time: 14 cycles 


Program Size: Seven bytes, plus 128 bytes for the 
conversion table. 


Data Memory Required: None 


characters without EBCDIC equivalents are 
translated to an EBCDIC NUL (00,,). 


Exit Conditions 


EBCDIC equivalent in the accumulator. 


Examples 

1. Data: (А) = 355 (ASCII 5) 
Result: (А) = F5, (EBCDIC 5) 

2. Data: (A) = 77 в (ASCII w) 
Result: (А) = Аб, (EBCDIC w) 


3. Data: (А) = 2А, (ASCII *) 


Result: (А) = 5С (EBCDIC *) 


4 we wo че VE TO че чо 


Title 
Name: ASC 2ЕВ 
Н 
i Purpose: 
; 
; 
; Entry: Register A = 
P 
; Exit: Register A - 
; 


ASCII to EBCDIC conversion 


Convert an ASCII character to its 
corresponding EBCDIC character 


ASCII character 


EBCDIC character 


me me wo ча че че че че 


че ча че “ГГ чо че ao чо 
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=e чо че TO че че че че 


ASC2EB: 


Registers used: A,P,Y 


Time: 


Size: 


AND 
TAY 
LDA 
RTS 


l4 cycles 


Program 7 bytes 


Data 128 bytes for the table 
$7FH ;BE SURE BIT 7 = 0 
;USE ASCII AS INDEX INTO EBCDIC TABLE 
EBCDIC,Y ;GET EBCDIC 


;ASCII TO EBCDIC TABLE 


BCDIC: 


че че чо чо 


LT) me me LT) -ə LT) =e LI LI LI me =e =e LT) 


me 


. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 


. BYTE 


WITH NO EQUIVALENTS ARE TRANSLATED TO A EBCDIC NUL (000H) 


NUL SOH STX ETX EOT ENG ACK BEL 
000H,000H, 000H, 022H,037H,000H,000H, ОООН 
BS HT LF VT FF CR SO SI 
000H,02BH,025H,000H,000H,02DH,000H,000H 
DLE DCl DC2 DC3 DC4 NAK SYN ETB 
000H,000H,000H,000H,037H,000H,000H,000H 
CAN EM SUB ESC FS GS RS VS 
000H,000H,000H,000H,000H,000H,000H, uH 
SPACE ! i i $ % & 
040Н,05АН, VIBE: ee O5BH, Овен, 050H, өлен 


( / 
04DH,05DH, jci; бен, 06BH, 060H, 04BH, 061H 
0 1 2 3 4 5 6 7 
OF OH, OF1H, Чен, ЕВН; e OF 5H, OF 6H, OF 7H 
8 9 = > ? 
OF 8H, t отв, озен, 04CH, 07DH,06EH, ОбЕН 
a D E F G 
обвн, 0618, 0C2H, ОСЗ, 0C4H, OCSH, OC GE, OC7H 
H I J K L M N О 
0C8H, 0C9H, OD1H, 0D2H, 0D3H, 0D4H, 0D5H, OD6H 
P Q R S T U V W 
0D7H, OD8H, OD9H, ОЕЗН, OE3H, OE4H, ОЕЗН, ОЕбН 
X Y 2 [ N ] <- 
0Е7Н, 0Е8Н,0Е9Н, Pd 040H,040H, 06AH,040H 

a b d e f g 
07СН, V ç 082H, 083H, 084H,085H, сон; P 
h j k 1 m 
088H, 089H, d Да код. nf 0958, 096 


р а 

i 098H, 0998, 0A2H, Аза, 0A4H, OASH, 0A 6H 
Y | " DEL 

QA7H, 0A8H, одон, 040H,04FH,040H,05FH,007H 


PRINTABLE ASCII CHARACTERS FOR WHICH THERE ARE NO EBCDIC EQUIVALENTS 
ARE TRANSLATED TO AN EBCDIC SPACE (040H), NON PRINTABLE ASCII 


me че Ге чо че чр че че 


CHARACTERS 


;ASCII 
; EBCDIC 
¿ASCII 
EBCDIC 
ASCII 
EBCDIC 
ASCII 
; EBCDIC 
; ASCII 
; EBCDIC 
:А5СІІ 
¿EBCDIC 
¿ASCII 
¿EBCDIC 
; ASCII 
; EBCDIC 
;ASCII 
?ЕВСОТС 
¿ASCII 
; EBCDIC 
¿ASCII 
EBCDIC 
¿ASCII 
EBCDIC 
; ASCII 
sEBCDIC 
:;ASCII 
EBCDIC 
¿ASCII 
EBCDIC 
¿ASCII 
; EBCDIC 


ча че че че WE 


SC0408: 


SAMPLE EXECUTION: 


;CONVERT ASCII 


LDA #'А' 
JSR ASC2EB 
BRK 

;CONVERT ASCII 
LDA #'1' 
JSR А5С2ЕВ 
ВЕК 

;CONVERT ASCII 
LDA фбға" 
JSR ASC2EB 
BRK 

. END 


ТА! 
; ASCII 
; EBCDIC 
11! 
sASCII 
¿EBCDIC 
ta! 
; ASCII 
; EBCDIC 


;END PROGRAM 


11! 


га! 


4H ASCII ТО EBCDIC CONVERSION (ASC2EB) 


ТА! 


ТА"! = 


ie 


га" 


ОСІН 


OF 1H 


081H 
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че ча че че че 


EBCDIC to ASCII Conversion (EB2ASC) 4| 


Converts an EBCDIC character to its Registers Used: A, P, Y 
ASCII equivalent. 


: Execution Time: 12 cycles 
Procedure: The program uses a simple 


Р . Program Size: Five bytes, plus 256 bytes for the 
table lookup with the data as the index and fi aba pe table. и ? 


address ASCII as the base. Printable 
EBCDIC characters for which there are no 
ASCII equivalents are translated to an ASCII ters without ASCII equivalents are translated 
space (20,9; nonprintable EBCDIC charac- toan ASCII NUL (00,,). 


Data Memory Required: None 


Entry Conditions Exit Conditions 
EBCDIC character in the accumulator. ASCII equivalent in the accumulator. 
Examples 
1. Data: (А) = 856 (EBCDIC е) 2. Data: (А) = 4E,, (EBCDIC +) 
Result: (А) = 65, (ASCII e) Result: (A) = 2В в (ASCII +) 
; Н 
; Title EBCDIC to ASCII conversion } 
2 Name: EB2ASC Н 
Purpose: Convert an EBCDIC character to its 
corresponding ASCII character 
Entry: Register A = EBCDIC character 
Exit: Register A = ASCII character 


Registers used: A,P,Y 


=e ЭГ че *" чо че чо че чо чо чо чо 
Эс. че че че че чо чо че че че че чо 


Time: 12 cycles 


-. 
со 
© 


Size: 


че Эс зо чо 


EB2ASC: 
TAY 
LDA 
RTS 


4| EBCDIC TO ASCII CONVERSION (EB2ASC) 


Program 5 bytes 


Data 256 


ASCII,Y ;TRANSLATE 


;EBCDIC TO ASCII TABLE 


SCII: 


me Зу че ad чо 


. BYTE 


. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 


. BYTE 


=e 


. BYTE 


чо 


NUL | 
000H,000H,000H,000H 


000H,000H,000H,000H, 
000H,000H,000H,000H, 


000H,000H,000H,000H, 
ETX 
000H,003H,000H,000H, 
TAB 
000H,000H,000H,009H, 


000H,000H,000H,000H, 
000H,000H,000H,000H, 


SPACE 

' ' ,000H,000H,000H, 
BRITISH $ . 

0008,000H,' ' ,'.' 


& 
'&' ,000H,000H,000H, 


! $ 
000H,000H,'1' „#5! 
= A 
„1 piss 
[4 
000H,000H, ' Py 


,000H,000H, 


000H,000H,000H,000H, 
: @ 


000H,000H,':' ,'e' 
а b с 

000H,'a' ,'p' ,'c' 

h : 

гу! mb 
J k 

000B,'j' К" ЕВА. 

q r 


‚'*' SI)! 


d 
,'d' 
1 
i' ,000H,000H, 

j 1 


bytes for the table 


TAB DEL 


,000H,009H,000H,07FH 


000н,000н, 0008, 0009 
NEW LINE 
000H, OODH, 000H,000H 
OOOH, ooon; 000H,000H 
000H, DOR 000H,000H 
CR 
000H,00DH,000H,000H 
EOT 
000H,000H,000H,004H 
000H, 000H, 000H, 000H 
0008; 000H, 0008; 0008 
> “abe ре E 
000H,000H,000H,000H 
* e. m 


, 
... Жый 
ғ? , 


000H, SIOR; ae 000H 
$ = ? 
‚*%' poe „1?! 


000H, 000H, 0008, 000H 


oo КИ ае? 000H 


„е f g 
е! ЗЕ” га" 
000H,000H,000H,0008 
m о 


рш" oon ,'o! ep! 


PRINTABLE EBCDIC CHARACTERS FOR WHICH THERE ARE NO ASCII EQUIVALENTS 
ARE TRANSLATED TO AN ASCII SPACE (020H), NON PRINTABLE EBCDIC CHARACTERS 
WITH NO EQUIVALENTS ARE TRANSLATED TO A ASCII NUL (000H) 


; EBCDIC 
;ASCII 
; EBCDIC 
¿ASCII 
¿EBCDIC 
;ASCII 
? ЕВСОТС 
;ASCII 
; EBCDIC 
¿ASCII 
; EBCDIC 
; ASCII 
; EBCDIC 
;ASCII 
; EBCDIC 
:АЅСІІ 
; EBCDIC 
;ASCII 
; EBCDIC 
; ASCII 
J EBCDIC 
; ASCII 
; EBCDIC 
;ASCII 
; EBCDIC 
¿ASCII 
; EBCDIC 
; ASCII 


. ¿EBCDIC 


;ASCII 
? EBCDIC 
; ASCII 
; EBCDIC 
¿ASCII 
EBCDIC 
;ASCII 
; EBCDIC 


; ASCII 


; EBCDIC 
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me че че w 


192 cODECONVERSION 


men чо чо чо =e =e =e ө чо чо =e 


чо 


че че че TO чо 


SC0409: 


. BYTE 


.. BYTE 
Z 
.BYTE 


. BYTE 

. BYTE 

A B 

. BYTE 

H I 

. BYTE 

J K 

. BYTE 

. BYTE 

. BYTE 

. BYTE 
0 1 2 

. BYTE О 1672" 


. BYTE 


SAMPLE EXECUTION: 


;CONVERT EBCDIC 'A' 


LDA #0C1H 

JSR EB2ASC 

BRK 

;CONVERT EBCDIC '1' 
LDA #0F 1H 

JSR EB2ASC 

BRK 

;CONVERT EBCDIC 'a' 
LDA $081H 

JSR EB2ASC 

BRK 

.END 


000H,'J' ,'K' 


а! ,'r' ,000H,000H,000H,000H, 000H, 000H 
S 


t u v w x 


000H,000H,'s' ,'t' ,'u' ,'v' ,'w', 'x' 

‘у’ ‚'2' ,000H,000H,000H,000H,000H,000H 
000H, 000H, 000H, 000H, 000H, 000H, ОООН, 000H 
000H, 000H, 000H, 000H, 000H, 000H, 000H, 000H 


C D E F G 


000H,'A' ,'B' ,'C' ,'D' ,'E' ,'F' „в! 
ІН!" ,'I' ,000H,000H,000H,000H,000H,000H 
N О Р 


L M 


P ғы , 'M' ІМ! Юю" ІР! 


0 R 
"О" ,'R' ,000H,000H,000H,000H, 000H, 000H 
S X 


T U V W 


000H,000H,'S' ,'T' ,'U' ,'V' ,'w', 'Х' 

Y 2 | 

'Y' ,'Z' ,000H,000H,000H, 000H, 000H, 000H 
3 4 5 6 

„ЕЗ ,'A' pDr ,16! ppt 

9 

'9' ,000H,000H,000H,000H,000H, 000H, 000H 


;EBCDIC 'A' 


;ASCII 'A' = 041H 


;EBCDIC '1' 


;ASCII '1' = 031H 


;EBCDIC 'a' 


sASCII 'a' 061H 


;END PROGRAM 


; ASCII 
; EBCDIC 
? ASCII 
; EBCDIC 
; ASCII 
: EBCDIC 
¿ASCII 
; EBCDIC 
; ASCII 
; EBCDIC 
; ASCII 
; EBCDIC 
¿ASCII 
¿EBCDIC 
¿ASCII 
: EBCDIC 
ASCII 
; EBCDIC 
ASCII 
; EBCDIC 
ASCII 
: EBCDIC 
? АЗСТТ 
; EBCDIC 
; ASCII 


w че че че чо 


Memory Fill (MFILL) 


Places a specified value in each byte of a 
memory area of known size, starting at a 
given address. 

Procedure: The program fills all the whole 
pages with the specified value first and then 
fills the remaining partial page. This approach 
is faster than dealing with the entire area in 


Registers Used: All 


Execution Time: Approximately 11 cycles per 
byte plus 93 cycles overhead. 


Program Size: 68 bytes 


Data Memory Required: Five bytes anywhere in 
RAM for the array size (two bytes starting at 


address ARYSZ), the value (one byte at 
address VALUE), and the return address (two 
bytes starting at address RETADR). Also two 
bytes on page O for an array pointer (taken as 


Entry Conditions 


Order in stack (starting from the top) 


Less significant byte of return address 
More significant byte of return address 


Value to be placed in memory 


Less significant byte of area size (in 
bytes) 

More significant byte of area size (in 
bytes) 


Less significant byte of starting address 
More significant byte of starting address 


5А 


one loop, since 8-bit counters can be used 
instead of a 16-bit counter. The approach 
does, however, require somewhat more 
memory than a single loop with a 16-bit 
counter. A size of 0000, causes an exit with 
no memory changed. 


addresses 0000, and 0001, (іп the listing). 


Special Cases: 

1. A size of zero causes an immediate exit with 
no memory changed. 

2. Filling areas occupied or used by the pro- 
gram itself will cause unpredictable results. 
Obviously, filling any part of page 0 requires cau- 
tion, since both this routine and most systems 
programs use that page. 


Exit Conditions 


The area from the starting address through 
the number of bytes given by the area size is 
filled with the specified value. The area filled 
thus starts at BASE and continues through 
BASE + SIZE — 1 (BASE is the starting 
address and SIZE is the area size). 
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Examples 


l. 


=e че зо чо 


об we чо TO че че чо че че чо чо чо че че че че че зо че ча че чо че WE 


Data: 


Result: 


Value — FF 6 2. Data: 


Area size (in bytes) = 0380, 
Starting address = 1AE0,, 


FF 16 is placed in memory 


Value = ЕА (6502 operation 


code for NOP) 
Area size (in bytes) = 1C65 


Starting address — ЕЗ4С,, 5 


om IAEO,, through Result: ЕА сіз placed in memory addresses 
16° E34C through ЕЕВО 6 
Title Memory fill 
Name: MFILL 
Purpose: Fill an area of memory with a value 
Entry: TOP OF STACK 


Low byte of return address, 

High byte of return address, 
Value to be placed in memory, 
Low byte of area size in bytes, 
High byte of area size in bytes, 
Low byte of starting address, 
High byte of starting address 


Exit: Area filled with value 


Registers used: All 


Time: Approximately 11 cycles per byte plus 
93 cycles overhead. 

Size: Program 68 bytes 
Data 5 bytes plus 


2 bytes in page zero 


:РАСЕ ZERO POINTER 
. EQU ODOH ; РАСЕ ZERO POINTER TO THE ARRAY 


ARYPTR: 


MFILL: 


;POP THE PARAMETERS FROM THE STACK 
PLA 


че че че чо че чо че We че We чо WE че We Че TE we ча че че 


че че че TOTO чо 


чо 
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STA RETADR 

PLA 

STA RETADR+1 ;GET THE RETURN ADDRESS 
PLA 

STA VALUE ;GET FILL VALUE 

PLA 

STA ARYSZ 

PLA 

STA ARYSZ+1 ;GET SIZE OF AREA 

PLA 

STA ARYPTR 

PLA 

STA ARYPTR+1 ;GET STARTING ADDRESS OF AREA 
LDA RETADR+1 

PHA 

LDA RETADR 

PHA ¿RESTORE RETURN ADDRESS 


;DO THE FULL PAGES FIRST 


LDA VALUE ;GET VALUE FOR FILL 
LDX ARYSZ+1 ;X = NUMBER OF PAGES TO DO 
BEQ PARTPG ;BRANCH IF THE HIGH BYTE OF SIZE = 0 
LDY #0 
FULLPG: 
STA (ARYPTR) ,Y ¿STORE VALUE 
INY INCREMENT TO NEXT BYTE 
BNE FULLPG ;BRANCH IF NOT DONE WITH THIS PAGE 
INC ARYPTR+1 ; ADVANCE TO THE NEXT PAGE 
DEX 
BNE FULLPG ;BRANCH IF NOT DONE WITH THE FULL PAGES 
; 
;DO THE REMAINING PARTIAL PAGE 
; REGISTER A STILL CONTAINS VALUE 
PARTPG: 
LDX ARYSZ ;GET THE NUMBER OF BYTES IN THIS FINAL БАЗЕ 
BEQ EXIT ;BRANCH IF LOW BYTE OF SIZE = 0 
LDY $0 
PARTLP: 
STA (ARYPTR) ,Y ;STORE VALUE 
INY ? INCREMENT INDEX 
DEX ; DECREMENT COUNTER 
BNE PARTLP ;BRANCH IF PARTIAL PAGE IS NOT DONE 
EXIT: 
RTS 
; DATA 
ARYSZ:  .BLOCK 2 ;NUMBER OF BYTES TO INITIALIZE 


VALUE: .BLOCK 1 ; VALUE TO INITIALIZE ARRAY WITH 


1 96 ARRAY MANIPULATION 


RETADR: 


че че че че че 


SC0501: 


SIZEl: 
SIZE2: 


BF lADR: 
BF2ADR: 


ВЕ152: 
BF2S2: 


ВЕ1: 
ВЕ2: 


.BLOCK 2 ; TEMPORARY FOR RETURN ADDRESS 


SAMPLE EXECUTION 


;FILL A SMALL BUFFER WITH 00 

LDA BFlADR-*1 

PHA 

LDA BF lADR 

PHA ;PUSH STARTING ADDRESS 
LDA BF1SZ+1 

PHA 

LDA ВЕ152 

РНА ;PUSH NUMBER OF BYTES 
LDA #0 

PHA ;PUSH VALUE 

JSR MFILL ;FILL BUFFER 

BRK 

;FILL A BIG BUFFER WITH EA HEX (NOP) 

LDA BF 2ADR+1 

PHA 

LDA BF2ADR 

PHA ;PUSH STARTING ADDRESS 
LDA BF 252 +1 

РНА 

LDA ВЕ252 

РНА ;PUSH NUMBER OF BYTES 
LDA #OEAH 

PHA ; PUSH VALUE 

JSR MFILL ;FILL BUFFER 

BRK 

JMP SC0501 

. EQU 47H 

. EQU 6000H 

. WORD ВЕ1 

. WORD BF2 

. WORD SIZEl 

. WORD SIZE2 

.BLOCK 512Е1 

.ВЬОСК SIZE2 


. END 


=e чо e чо чо 


Block Move (BLKMOV) 


Moves a block of data from a source area 
to a destination area. 

Procedure: The program determines if the 
starting address of the destination area is 
within the source area. If it is, then working 
up from the starting address would overwrite 
some of the source data. To avoid that prob- 
lem, the program works down from the high- 
est address (this is sometimes called move 
right). If the starting address of the destina- 
tion area is not within the source area, the 
program simply moves the data starting from 
the lowest address (this is sometimes called a 
move left). In either case, the program moves 
the data by handling complete pages sepa- 
rately from the remaining partial page. This 
approach allows the program to use 8-bit 
counters rather than a 16-bit counter, thus 
reducing execution time (although increas- 
ing memory usage). An area size (number of 
bytes to move) of 0000,, causes an exit with 
no memory changed. 

Important Note: The user should be careful 
if either the source or the destination area 
includes the temporary storage used by the 
program itself. The program provides auto- 
matic address wraparound (mod 64K), but 
the results of any move involving the pro- 
gram’s own temporary storage are unpredic- 
table. 


5B 


Registers Used: All 


Execution Time: 128 cycles overhead plus the 
following: | 

1. If data can be moved starting from the 
lowest address (i.e., left): 

20 + 4110 * (more significant byte of num- 
ber of bytes to move) + 18 * (less significant byte 
of number of bytes to move). 


2. If data must be moved starting from the 
highest address (i.e., right) because of overlap: 
42 + 4622 * (more significant byte of num- 
ber of bytes to move) + 18 (less significant byte 
of number of bytes to move). 


Program Size: 157 bytes 


Data Memory Required: Two bytes anywhere in 
RAM for the length of the move (starting at 
address MVELEN), four bytes on page 0 for 


source and destination pointers (starting at 
addresses MVSRCE and MVDEST taken as 
addresses 0000; and 0001,5 — source 
pointer — and addresses 00025 апа 0003, — 
destination pointer — in the listing). 


Special Cases: 


1. A size (number of bytes to move) of zero ` 
causes an immediate exit with no memory 
changed. 


2. Moving data to or from areas occupied or 
used by the program itself will produce unpredic- 
table results. Obviously, moving data to or from 
page 0 requires caution, since both this routine 
and most systems programs use that page. This 
routine does provide automatic address wrap- 
around (mod 64K) for consistency, but the user 
must still approach moves involving page 0 
carefully. 
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Entry Conditions 


Order in stack (starting from the top) 


Less significant byte of return address 
More significant byte of return address 


Less significant byte of number of bytes 
to move 

More significant byte of number of 
bytes to move 


Less significant byte of lowest address 
of destination area 

More significant byte of lowest address 
of destination area 


Less significant byte of lowest address 
of source area 

More significant byte of lowest address 
of source area 


Examples 
1. Data: Number of bytes to move = 0200,6 
Lowest address in destination area 
= 052115 
Lowest address in source area 
= 035Е 6 


Result: The contents of memory locations 


035Е 6 through 0550 | are moved 


to 050115 through 0700,6. 
Number of bytes to move 
= 1В7А |; 
Lowest address in destination 
area = С946 6 
Lowest address in source area 
= C300). 


The contents of memory locations 


2. Data: 


Result: 


C300), through DE79,, are moved 


to 294616 through Е4ВЕ | 


Exit Conditions 


The block of memory is moved from the 
source area to the destination area. If the 
number of bytes to be moved is NBYTES, 
the lowest address in the destination area is 
DEST, and the lowest address in the source 
area is SOURCE, then the area from 
addresses SOURCE through SOURCE + 
NBYTES — 1 is moved to addresses DEST 
through DEST + NBYTES - 1. 


Note that Example 2 presents a more com- 
plex problem than Example 1 because the 
source and destination areas overlap. If, for 
instance, the program were simply to move 
data to the destination area starting from the 
lowest address, it would initially move the 
contents of C300,, to C946,.. This would 
destroy the old contents of C946,,, which are 
needed later in the move. The solution to this 
problem is to move the data starting from the 
highest address if the destination area is 
above the source area but overlaps it. 
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; Title Block Move ; 
; Name: BLKMOV ; 
; Н 
; ; 
Purpose: Move data from source to destination 
Entry: TOP OF STACK 


Low byte of return address, 

High byte of return address, 

Low byte of number of bytes to move, 

High byte of number of bytes to move, 

Low byte of lowest address in destination 
area, 

High byte of lowest address in destination 
area, 

Low byte of lowest address in source area, 

High byte of lowest address in source area 


Exit: Data moved from source to.destination 


Registers used: A11 


Time: 102 cycles overhead plus move 
move left cycles equals 
20 + 


(high byte of length * 4110) + 
(low byte of length * 18) 


move right cycles equals 
42 * 
(high byte of length * 4622) + 
(low byte of length * 18) 


Size: Program 146 bytes 
Data 2 bytes plus 
4 bytes in page zero 


с чо чо чо чо че че чо ше че чо че че че че че чо че че че ча "9 ча оо че че Әә о чё че че че че че ще 


че че чо че чо NO чо чо че TO чо че NE чо че че ча че че чо чо че че че WH чо че чо че че че че че WO че 


; PAGE ZERO POINTERS 


MVSRCE .EQU орон ¿SOURCE ADDRESS 
MVDEST .EQU 0D2H ;DESTINATION ADDRESS 
BLKMOV: 

;GET RETURN ADDRESS 

PLA 

TAY ? ЗАУЕ LOW BYTE 

PLA 

TAX ? ЗАУЕ HIGH BYTE 


;GET NUMBER OF BYTES 
PLA 
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STA MVELEN ¿STORE LOW BYTE 
PLA 

STA MVELEN+1 ¿STORE HIGH BYTE 
;GET STARTING DESTINATION ADDRESS 

PLA 

STA MVDEST ¿STORE LOW BYTE 
PLA | 

STA MVDEST+1 . STORE HIGH BYTE 
¿GET STARTING SOURCE ADDRESS 

PLA | 

STA MVSRCE STORE LOW BYTE 
PLA 

STA MVSRCE-*1 ¿STORE HIGH BYTE 
;RESTORE RETURN ADDRESS 

TXA 

PHA ;RESTORE HIGH BYTE 
TYA 

PHA ;RESTORE LOW BYTE 


} 

;DETERMINE IF DESTINATION AREA IS ABOVE SOURCE AREA BUT OVERLAPS 

; IT. REMEMBER, OVERLAP CAN BE MOD 64K. OVERLAP OCCURS IF 

; STARTING DESTINATION ADDRESS MINUS STARTING SOURCE ADDRESS (MOD 64K) 
; IS LESS THAN NUMBER OF BYTES TO MOVE 


LDA MVDEST ;CALCULATE DESTINATION - SOURCE 

SEC 

SBC MVSRCE 

TAX 

LDA MVDEST+1 

SBC MVSRCE+1 ;MOD 64K IS AUTOMATIC - DISCARD CARRY 
TAY 

TXA | ;COMPARE WITH NUMBER OF BYTES TO MOVE 
CMP MVELEN 

TYA | 

SBC MVELEN+1 | 

BCS DOLEFT ;BRANCH IF NO PROBLEM WITH OVERLAP 


¿DESTINATION AREA IS ABOVE SOURCE AREA BUT OVERLAPS IT 
;MOVE FROM HIGHEST ADDRESS TO AVOID DESTROYING DATA 
JSR MVERHT 

JMP EXIT 


¿NO PROBLEM DOING ORDINARY MOVE STARTING AT LOWEST ADDRESS 


DOLEFT: 
JSR MVELFT 


EXIT: 
RTS 


5B BLOCK MOVE (вікмоу) 201 


; * k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k 


;SUBROUTINE: MVELFT 
; PURPOSE: MOVE SOURCE TO DESTINATION STARTING FROM 


; THE LOWEST ADDRESS 
ENTRY: MVSRCE = 2 BYTE LOWEST ADDRESS OF SOURCE AREA 
MVDEST 2 BYTE LOWEST ADDRESS OF DESTINATION AREA 


MVELEN 2 BYTE NUMBER OF BYTES TO MOVE 


EXIT: SOURCE MOVED TO DESTINATION 
k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k K R | 


me Эс чо ao 


MVELFT: 

LDY #0 ZERO INDEX 

LDX MVELEN+1 ;X= NUMBER OF FULL PAGES TO MOVE 

BEQ MLPART :ІЕ X = 0 THEN DO PARTIAL PAGE 
MLPAGE: | 

LDA (MVSRCE) ,Y | 

STA (MVDEST) „У ;MOVE ONE BYTE 

INY ;NEXT BYTE 

BNE MLPAGE ;CONTINUE UNTIL 256 BYTES ARE MOVED 

INC MVSRCE+1 ;ADVANCE TO NEXT PAGE OF SOURCE 

INC MVDEST+1 ; AND DESTINATION 

DEX ;DECREMENT PAGE COUNT 

BNE MLPAGE ;CONTINUE UNTIL ALL FULL PAGES ARE MOVED 
MLPART: 

LDX MVELEN ¿GET LENGTH OF LAST PAGE 

BEQ MLEXIT ;,BRANCH IF LENGTH OF LAST PAGE = 0 

¿REGISTER Y IS 0 

MLLAST: 

LDA (MVSRCE) ,Y 

STA (MVDEST) ‚У ;MOVE BYTE 

INY ¿NEXT BYTE 

DEX ? ПЕСКЕМЕНТ COUNTER 

BNE MLLAST ;CONTINUE UNTIL LAST PAGE IS DONE 
MLEXIT: 

RTS 


; k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k 


;SUBROUTINE: MVERHT 

; PURPOSE: MOVE SOURCE TO DESTINATION STARTING FROM 
THE HIGHEST ADDRESS 

ENTRY: MVSRCE = 2 BYTE LOWEST ADDRESS OF SOURCE AREA 
MVDEST 2 BYTE LOWEST ADDRESS OF DESTINATION AREA 
MVELEN = 2 BYTE NUMBER OF BYTES TO MOVE 


EXIT: SOURCE MOVED TO DESTINATION 
É k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k K 


~e чо че чо чо чо 


МУЕКНТ: 


е 
, 


;MOVE THE PARTIAL PAGE FIRST 


LDA MVELEN+1 
CLC 
ADC MVSRCE+1 


STA MVSRCE+1 ; POINT TO LAST PAGE OF SOURCE 
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; POINT TO LAST PAGE OF DESTINATION 


;MOVE THE LAST PARTIAL PAGE FIRST 


LDA MVELEN+1 

CLC 3 

ADC MVDEST+1 

STA MVDEST+1 

LDY MVELEN 

BEQ MRPAGE 
MRO: 

DEY 

LDA (MVSRCE) ,Y 

STA (MVDEST) ,Y 

CPY #0 

BNE MRO 
MRPAGE: 

LDX MVELEN+1 

BEQ MREXIT 
MRI: 

DEC MVSRCE+1 

DEC MVDEST+H+1 
MR2: 

DEY 

LDA (MVSRCE) ,Y 

STA (MVDEST) ,Y 

CPY #0 

BNE MR2 

DEX 

BNE MR1 
MREXIT: 

RTS 


, 
; DATA SECTION 


MVELEN .BLOCK 2 


с че че чо че 


SC0502: 
LDA 
PHA 
LDA 
PHA 
LDA 
PHA 
LDA 
PHA 


SAMPLE EXECUTION: 


SRCE+1 
SRCE 
DEST+1 


DEST 


;GET LENGTH OF LAST PAGE 

;IF Y - 0 THEN DO THE FULL PAGES 

;BACK UP Y TO THE NEXT BYTE 

;MOVE BYTE 

;BRANCH IF NOT DONE WITH THE LAST PAGE 
;GET HIGH BYTE.OF COUNT AS PAGE COUNTER 
;BRANCH IF HIGH BYTE = 0 (NO FULL PAGES) 


;BACK UP TO PREVIOUS PAGE OF SOURCE 
; AND DESTINATION 


;BACK UP Y TO THE NEXT BYTE 
;MOVE BYTE 
;BRANCH IF NOT DONE WITH THIS PAGE 


;DECREMENT PAGE COUNTER 
;BRANCH IF NOT ALL PAGES ARE MOVED 


;LENGTH OF MOVE 


MOVE 0800 THROUGH 097F TO 0900 THROUGH ОА7Е 


;PUSH HIGH BYTE OF SOURCE 
;PUSH LOW BYTE OF SOURCE 
;PUSH HIGH BYTE OF DESTINATION 


;PUSH LOW BYTE OF DESTINATION 


е че че чо че 
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LDA LEN+1 

PHA ;PUSH HIGH BYTE OF LENGTH 

LDA LEN 

PHA ;PUSH LOW BYTE OF LENGTH 

JSR BLKMOV ;MOVE DATA FROM SOURCE TO DESTINATION 

BRK ; FOR THE DEFAULT VALUES MEMORY FROM 800 HEX 
; THROUGH 97F HEX IS MOVED TO 900 HEX THROUGH 
; A7F HEX. 

JMP SC0502 


7 


; TEST DATA, CHANGE TO TEST OTHER VALUES 


SRCE . WORD 0800H ;STARTING ADDRESS OF SOURCE AREA 
DEST . WORD 0900H ;STAKTING ADDRESS OF DESTINATION AREA 
LEN ‚ WORD 0180H ;NUMBER OF BYTES TO MOVE 


‚ END ; PROGRAM 


One-Dimensional Byte Array Index (DIBYTE) 


5C 


Calculates the address of an element of a 
byte-length array, given the base address and 
the subscript (index) of the element. 

Procedure: The program simply adds the 
base address to the subscript. The sum is the 
address of the element. 


Registers Used: All 
Execution Time: 74 cycles 


Program Size: 37 bytes 


Data Memory Required: Four bytes anywhere in 
RAM to hold the return address (two bytes start- 
ing at address RETADR) and the subscript (two 
bytes starting at address SUBSCR). 


Entry Conditions 


Order in stack (starting at the top) 


Less significant byte of return address 
More significant byte of return address 


Less significant byte of subscript 
More significant byte of subscript 


Less significant byte of base address of 
array 

More significant byte of base address of 
array 


Examples 
1. Data: Base address = 0E00\¢ 
Subscript = 012С 16 
Result: Address of element = 0ЕО016 


+ 012Ci¢ == ОЕ2С |. 
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Exit Conditions 


(A) = More significant byte of address of 
element 


(Y) = Less significant byte of address of 
element 


2. Data: Base address = C4El,g 
Subscript = 02Е4 16 
Result: Address of element = С4Е1 6 


+ 02Е4 5 = С7С9 16: 
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; Title One dimensional byte array indexing ; 
; Name: DlBYTE - ; 
; ; 
; ; 
Ригрозе: Given the base address of а byte array and a 


Subscript 'I' calculate the address of AII] 


Entry: TOP OF STACK 
Low byte of return address, 
High byte of return address, 
Low byte of subscript, 
High byte of subscript, | 
Low byte of base address of array, 
High byte of base address of array 


Exit: Register A = High byte of address 
Register Y = Low byte of address 


Registers used: All 


Time: 74 cycles 
Size: Program 37 bytes 
Data 4 bytes 


чо чо че чо чо чо чо чо чо че че чо че чо TO BE чо че че TE че WS чо 
че чо че че чо чо чо чо ча чо чо чо че че чо чо че чо чо че че че we 


DlBYTE: 
;SAVE RETURN ADDRESS 
PLA 
STA RETADR 
PLA 
STA RETADR+1 
;GET SUBSCRIPT 
PLA 
STA SS 
PLA 
STA 55-1 
;ADD BASE ADDRESS ТО SUBSCRIPT 
PLA 
CLC 
ADC SS 
TAY ;REGISTER Y = LOW BYTE 
PLA 
ADC SS41 
TAX ;SAVE HIGH BYTE IN REGISTER X 


;RESTORE RETURN ADDRESS TO STACK 
LDA RETADR+1 
PHA 


206 ARRAY MANIPULATION 


LDA RETADR | 

PHA ;RESTORE RETURN ADDRESS 

TXA ;GET HIGH BYTE BACK TO REGISTER A 

RTS ;EXIT 
; 
; DATA 
RETADR: .BLOCK 2 ; TEMPORARY FOR RETURN ADDRESS 
SS: .BLOCK 2 ;SUBSCRIPT INTO THE ARRAY 
; | 
; ; 
; SAMPLE EXECUTION: ; 
; ; 
; ; 
SC0503: 

;PUSH ARRAY ADDRESS 

LDA ARYADR+1 ;HIGH BYTE 

PHA 

LDA ARYADR ;LOW BYTE 

PHA 

;PUSH A SUBSCRIPT 

LDA SUBSCRt1 ;HIGH BYTE 

PHA 

LDA SUBSCR ;LOW BYTE 

PHA | 

JSR DIBYTE ;CALCULATE ADDRESS 

BRK ;AY = ARY+2 

; = ADDRESS OF ARY(2), WHICH CONTAINS 3 
JMP SC0503 


Н 

;TEST DATA, CHANGE SUBSCR FOR OTHER VALUES 

SUBSCR: .WORD 2 ¿TEST SUBSCRIPT INTO THE ARRAY 
ARYADR: .WORD ARY ;BASE ADDRESS OF ARRAY 


;THE ARRAY (8 ENTRIES) 
ARY: . BYTE 1,2,3,4,5,6,7,8 


. END ; PROGRAM 


One-Dimensional Word Array Index (D1WORD) 


5D 


Calculates the starting address of an ele- 
ment of a word-length (16-bit) array, given 
the base address of the array and the 
subscript (index) of the element. The ele- 
ment occupies the starting address and the 
address one larger; elements may be 
organized with either the less significant byte 
or the more significant byte in the starting 
address. 

Procedure: The program multiplies the 
subscript by two (using a logical left shift) 
before adding it to the base address. The sum 


Entry Conditions 


Order in stack (starting at the top) 


Less significant byte of return address 
More significant byte of return address 


Less significant byte of subscript 
More significant byte of subscript 


Less significant byte of base address of 
array 

More significant byte of base address of 
array 


Registers Used: All 
Execution Time: 78 cycles 


Program Size: 39 bytes 


Data Memory Required: Four bytes anywhere in 
RAM to hold the return address (two bytes start- 
ing at address RETADR) and the subscript (two 
bytes starting at address SUBSCR). | 


(BASE + 2*SUBSCRIPT) is then the start- 
ing address of the element. 


Exit Conditions 


(A) — More significant byte of starting 
address of element 

(Y) = Less significant byte of starting 
address of element 


Examples 
1. Data: Base address = А148; 
Subscript = 0149,6 
Result: Address of first byte of element 

= A148,6 + 2 X 01А9,6 

= А148 16 + 0342 6 - A49A |. 
That is, the word-length element 
occupies addresses А49А |6 and А49В в. 


2. Data: Base address = С4ЕО 6 
Subscript = 015В 16 
Result: Address of first byte of element 


= С4ЕО 6 + 2 X 0158 16 

= С4ЕО 16 + 0286 6 = C7966- 
That is, the word-length element 
occupies addresses С796 and С797 ç. 
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D1WORD: 


Title One dimensional word array indexing 
Name: D1WORD 
Purpose: Given the base address of a word array and a 


subscript 'I' calculate the address of A[I] 


Entry: TOP OF STACK 
Low byte of return address, 
High byte of return address, 
Low byte of subscript, | 
High byte of subscript, 
Low byte of base address of array, 
High byte of base address of array 


Exit: Register A 
Register Y 


High byte of address 
Low byte of address 


Registers used: All 


Time: 78 cycles 
Size: Program 39 bytes 
Data 4 bytes 


; SAVE RETURN ADDRESS 


PLA 

STA RETADR 

PLA 

STA RETADR+1 

;GET SUBSCRIPT AND MULTIPLY IT BY 2 

PLA 

ASL A 

STA SS 

PLA 

ROL A 

STA SS+1 

;ADD BASE ADDRESS TO DOUBLED SUBSCRIPT 

PLA 

CLC 

ADC SS 

TAY REGISTER Y = LOW BYTE 
PLA 

ADC SS+1 

TAX ;SAVE HIGH BYTE IN REGISTER X 


;RESTORE RETURN ADDRESS TO STACK 


че чо че чо 
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LDA RETADR-*1 . 
PHA 
LDA RETADR 
PHA ;RESTORE RETURN ADDRESS 
TXA ‚СЕТ HIGH BYTE BACK TO REGISTER А 
RTS ;EXIT 
; 
; DATA 
RETADR: .BLOCK 2 ¿TEMPORARY FOR RETURN ADDRESS 
SS: .BLOCK 2 ;SUBSCRIPT INTO THE ARRAY 
H ; 
; ; 
2 SAMPLE EXECUTION: Ч 
; Н 
; ; 
SC0504: 
;PUSH ARRAY ADDRESS 
LDA ARYADR+1 
PHA 
LDA ARYADR 
PHA ° 
;PUSH A SUBSCRIPT OF 3 
LDA SUBSCR-*1 
PHA 
LDA SUBSCR 
PHA 
JSR DlWORD ;CALCULATE ADDRESS 
BRK ;FOR THE INITIAL TEST DATA 
;AY = STARTING ADDRESS OF ARY (3) 
; = ARY + (3*2) 
3 = ARY + 6 
I = ARY(3) CONTAINS 240 HEX 
JMP SC0504 
; 
;TEST DATA 
SUBSCR: .WORD 3 ;TEST SUBSCRIPT INTO ARY 
ARYADR: .WORD ARY ;BASE ADDRESS OF ARRAY 


; THE ARRAY (8 ENTRIES) 
ARY: . WORD 0180H,01C0H,0200H,0240H,0280H , О2СОН, 03E7H, 0A34H 
. END ; PROGRAM 


Two-Dimensional Byte Array Index (D2BYTE) 


Calculates the address of an element of a 
two-dimensional byte-length array, given the 
base address of the array, the two subscripts 
of the element, and the size of a row (that is, 
the number of columns). The array is 
assumed to be stored in row major order (that 
is, by rows) and both subscripts are assumed 
to begin at zero. 

Procedure: The program multiplies the row 
size (number of columns in a row) times the 
row subscript (since the elements are stored 
by rows) and adds the product to the column 
subscript. It then adds the sum to the base 
address. The program performs the multi- 
plication using.a standard shift-and-add 
algorithm (see Subroutine 6H). 


Entry Conditions 


Order in stack (starting at the top) 


Less significant byte of return address 
More significant byte of return address 


Less significant byte of column subscript 
More significant byte of column subscript 


Less significant byte of the size of a row 
More significant byte of the size of a row 


Less significant byte of row subscript 
More significant byte of row subscript 


Less significant byte of bass address of array 
More significant byte of base address of array 
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Registers Used: All 


Execution Time: Approximately 1500 cycles, 
depending mainly on the amount of time 
required to perform the multiplication. 


Program Size: 119 bytes 


Data Memory Required: Ten bytes anywhere in 
memory to hold the return address (two bytes 
starting at address RETADR), the row subscript 
(two bytes starting at address SS1), the size 
(length) of the rows (two bytes starting at address 
SS1SZ), the column subscript (two bytes starting 
at address SS2), and the product of row size times 
row subscript (two bytes starting at address 
PROD). 


Exit Conditions 


(A) = More significant byte of address of 


element 


(Y) — Less significant byte of address of 


element 


БЕ 


Examples 


l. 


2. 


me че чо чо 
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Data: 


Result: 


Data: 


Result: 


Base address = 3C00,, 

Column subscript = 0004 16 

Size of row (number of columns) 
= 0018,6 

Row subscript = 000315 


Address of element = 3С00,6 
+ 00036 х 00186 + 0004 6 
== 3С00, + 0048 6 + 0004 , 
= ЗСАС |. 
Thus the address of ARRAY (3,4) 
is ЗСАС |6. 


Base address = 6А4А |, 

Column subscript = 0035 16 

Size of row (number of columns) 
m 0050 6 

Row subscript = 0002 6 


Address of element = 6А4А | 
+ 0002 4 х 0050,6 
+ 0035 == бАДА |; 
+ 00А0, + 0035 16 = 6ВІЕ |е. 
Thus the address of ARRAY 
(2,35) is 6В1Е |. 
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The general formula is 


ADDRESS OF ELEMENT - BASE ADDRESS 
OF ARRAY + ROW SUBSCRIPT x SIZE OF ROW 
+ COLUMN SUBSCRIPT 


Note that we refer to the size of the row 
subscript; the size is the number of consecu- 
tive memory addresses for which the 
subscript has the same value. This is also the 
number of bytes from the starting address of 
an element to the starting address of the ele- 
ment with the same column subscript but a 
row subscript one larger. 


Two dimensional byte array indexing 


Given the base address of a byte array, two 
subscripts 'I','J', and the size of the first 
subscript in bytes, calculate the address of 
A[I,J]. The array is assumed to be stored in 
row major order (A[0,0], A[0,1],..., AIK,L]), 
and both dimensions are assumed to begin at 
zero as in the following Fascal declaration: 
A:ARRAY[0..2,0..7] OF BYTE; 


Title 

Name: D2BYTE 
Purpose: 

Entry: TOP OF STACK 


Low byte of return address, 
High byte of return address, 
Low byte of second subscript, 
High byte of second subscript, 


Low byte of size of first subscript in bytes, 


че че чо чо 
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212 ARRAY MANIPULATION 


High byte of size of first subscript in bytes, 
Low byte of first subscript, 

High byte of first subscript, 

Low byte of base address of array, 

High byte of base address of array 


NOTE: 
The size of the first subscript is the length 
of a row 
Exit: Register A High byte of address 


Register Y = Low byte of address 


Registers used: All 


Time: Approximately 1500 cycles 
Size: Program 119 bytes 
Data l0 bytes 


чө чо wo чо чо че TO TO че TO TO ча We TO чо TO BO чо че BO 


D2BYTE: 
;SAVE RETURN ADDRESS 
PLA 
STA RETADR 
PLA 
STA RETADR+1 
;GET SECOND SUBSCRIPT 
PLA 
STA SS2 
РА . 
5ТА 552+1 
;GET SIZE OF FIRST SUBSCRIPT (LENGTH OF A ROW) 
PLA 
STA 55152 
PLA 
STA 55152+1 
¿GET FIRST SUBSCRIPT 
PLA 
STA 551 
PLA 
STA 551+1 


;MULTIPLY FIRST SUBSCRIPT * ROW LENGTH USING THE SHIFT AND ADD 
; ALGORITHM. THE RESULT WILL BE IN 551 


LDA $0 ;PARTIAL PRODUCT = ZERO INITIALLY 
STA PROD 

STA PROD+1 

LDX #17 ;NUMBER OF SHIFTS = 17 


CLC 


чө чо чо чо чо чо "9 TO чо Ne чо че чо чо WS че WO NS чо че 


MULLP: 


DECCNT: 


? 

; DATA 
RETADR: 
551: 
55152: 
552: 
PROD: 


ROR 
ROR 
ROR 
ROR 
BCC 
CLC 
LDA 
ADC 
STA 
LDA 
ADC 
STA 


DEX 
BNE 


;ADD IN 


LDA 
CLC 
ADC 
STA 
LDA 
ADC 
STA 


PROD+1 
PROD 
SS1-41 
551 
DECCNT 


ss1sz 
PROD 
PROD 


55152+1 


PROD+1 
PROD+1 


MULLP 
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;SHIFT PARTIAL PRODUCT 


;SHIFT MULTIPLIER 


;ADD MULTIPLICAND TO PARTIAL PRODUCT 
; IF NEXT BIT OF MULTIPLIER IS 1 


THE SECOND SUBSCRIPT 


551 


552 
551 
551+1 
552+1 
55141 


;ADD BASE ADDRESS TO FORM THE FINAL ADDRESS 


PLA 
CLC 
ADC 
TAY 
PLA 
ADC 
TAX 


;RESTORE RETURN ADDRESS 
RETADR+1 


LDA 
PHA 
LDA 
PHA 


TXA 
RTS 


. BLOCK 
. BLOCK 
. BLOCK 
. BLOCK 
. BLOCK 


551 


SS1+1 


RETADR 


N IN N) IN ƏN 


;REGISTER Y = LOW BYTE 


;SAVE HIGH BYTE IN REGISTER X 


TO STACK 


;RESTORE RETURN ADDRESS 


;GET HIGH BYTE BACK TO REGISTER A 
;EXIT 


;TEMPORARY FOR RETURN ADDRESS 
;SUBSCRIPT 1 

;SIZE OF SUBSCRIPT 1 IN BYTES 
;SUBSCRIPT 2 

;TEMPORARY FOR THE MULTIPLY 
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SC0505: 
; PUSH 
LDA 
PHA 
LDA 
PHA 


; PUSH 
LDA 
PHA 
LDA 
PHA 


; PUSH 
LDA 
PHA 
LDA 
PHA 


; PUSH 
LDA 
PHA 
LDA 
PHA 


JSR 
BRK 


JMP 


? 

? DATA 

$0851: . WORD 
SSUBS1: .WORD 
$0852: .WORD 
ARYADR:- . WORD 


;THE ARRAY (3 
ARY: . BYTE 
. BYTE 
. BYTE 


. END 


SAMPLE EXECUTION: 


ARRAY ADDRESS 
ARYADR+1 


ARYADR 
FIRST SUBSCRIPT 
SUBS1+1 
SUBS1 
SIZE OF FIRST SUBSCRIPT 
SSUBS1+1 


SSUBSI 


SECOND SUBSCRIPT 


SUBS2+1 

SUBS 2 

D2BYTE ;CALCULATE ADDRESS 
;FOR THE INITIAL TEST DATA 
;AY = ADDRESS OF ARY (2,4) 
; = ARY + (2*8) + 4 
; = ARY + 20 (CONTENTS ARE 21) 

SC0505 

2 ;SUBSCRIPT 1 

8 ¿SIZE OF SUBSCRIPT 1 

4 ;SUBSCRIPT 2 

ARY ; ADDRESS OF ARRAY 


ROWS OF 8 COLUMNS) 
1,2 ‚3 ,4 „5 ,6 ,7 ,8 
9 ,10,11,12,13,14,15,16 
17,18,19,20,21,22,23,24 


; PROGRAM 


me чо че че че 


Two-Dimensional Word Array Index (D2WORD) 


OF 


Calculates the starting address of an ele- 
ment of a two-dimensional word-length (16- 
_ bit) array, given the base address of the array, 
the two subscripts of the element, and the 
size of a row in bytes. The array is assumed to 
be stored in row major order (that is, by 
rows) and both subscripts are assumed to 
begin at zero. | 

Procedure: The program multiplies the row 
size (in bytes) times the row subscript (since 
the elements are stored by row), adds the 
product to the doubled column subscript 
(doubled because each element occupies two 
bytes), and adds the sum to the base address. 
The program uses a standard shift-and-add 
algorithm (see Subroutine 6H) to multiply. 


Registers Used: All 


Execution Time: Approximately 1500 cycles, 
depending mainly on the amount of time 
required to perform the multiplication of row size 
in bytes times row subscript. 


Program Size: 121 bytes 
Data Memory Required: Ten bytes anywhere in 


memory to hold the return address (two bytes 
starting at address RETADR), the row subscript 
(two bytes starting at address SS1), the row size 
in bytes (two bytes starting at address SS1SZ), 
the column subscript (two bytes starting at 
address SS2), and the product of row size times 
row subscript (two bytes starting at address 
PROD). 


Entry Conditions 


Order in stack (starting at the top) 


Less significant byte of return address 
More significant byte of return address 


Less significant byte of column 
subscript 

More significant byte of column 
subscript 


Less significant byte of size of rows (in 
bytes) 

More significant byte of size of rows (in 
bytes) 


Less significant byte of row subscript 
More significant byte of row subscript 


Less significant byte of base address of 
array 

More significant byte of base address of 
array 


Exit Conditions 


(A) = More significant byte of starting 
address of element 


(Y) = Less significant byte of starting 
address of element 


The element occupies the address in AY 
and the next higher address. 
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Examples 


l. 


2. 


с че че чо 
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Data: 


Result: 


Data: 


Result: 


Title 
Name: 


Purpose: 


Base address = 5Е146 
Column subscript = 0008 16 
Size of a row (in bytes) = 001С 16 


(i.e., each row has 0014, or 000Е 6 


word-length elements) 
Row subscript = 0005,6 


Starting address of element 
= 5Е14 16 + 0005 16 x 
001С% + 0008,6 x 2 = 5Е14 16 
+ 008С 16 + 0010 16 = SEBO) с. 
Thus, the starting address of 
ARRAY (5,8) is SEBO), and 
the element occupies addresses 
SEBO,, and 5EBI 16° 


Base address = В10016 

Column subscript = 0002, 

Size of a row (in bytes) = 0008,, 
(i.e., each row has 4 word-length 
elements) 

Row subscript = 0006,6 


Starting address of element 
= B100,,+ 0006), 
x 0008 6 + 000216 X 2 = В100 16 
+ 0030 6 + 0004 16 = B134,,. 
Thus, the starting address of 
ARRAY (6,2) iS В134 16 and 
the element occupies 
addresses В134| and В135. 


The general formula is 


STARTING ADDRESS OF ELEMENT 
= BASE ADDRESS OF ARRAY 

* ROW SUBSCRIPT x SIZE OF ROW 
+ COLUMN SUBSCRIPT x 2 


Note that one parameter of this routine is 
the size of a row in bytes. The size in the case 
of word-length elements is the number of 
columns (per row) times two (the size of an 
element). The reason why we chose this 
parameter rather than the number of col- 
umns or the maximum column index is that 
this parameter can be calculated once (when 


the array bounds are determined) and used 


whenever the array is accessed. The alterna- 
tive parameters (number of columns or max- 
imum column index) would require extra 
calculations as part of each indexing opera- 
tion. 


D2WORD 


Two dimensional word array indexing 


Given the base address of a word array, two 
subscripts 'I','J', and the size of the first 
subscript in bytes, calculate the address of 
A[I,J]. The array is assumed to be stored in 
row major order (A[0,0], А(0,11,..., A[K,L]), 


e чо че че 
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and both dimensions are assumed to begin at 
zero as in the following Pascal declaration: 
A:ARRAY [0..2,0..7] OF WORD; 


Entry: TOP OF STACK 
Low byte of return address, 
High byte of return address, 
Low byte of second subscript, 
High byte of second subscript, 
Low byte of size of first subscript in bytes, 
High byte of size of first subscript in bytes, 
Low byte of first subscript, 
High byte of first subscript, 
Low byte of base address of array, 
High byte of base address of array 


Exit: Register A = High byte of address 
Register Y = Low byte of address 


Registers used: ALL 


Time: Approximately 1500 cycles 
Size: Program 121 bytes 
Data 10 bytes 
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D2WORD: 
:ЗАУЕ RETURN ADDRESS 
PLA 
STA RETADR 
PLA 
STA RETADR+1 
;GET SECOND SUBSCRIPT AND MULTIPLY BY 2 FOR WORD-LENGTH ELEMENTS 
PLA 
ASL A 
STA SS2 
PLA 
ROL A 
STA SS2+1 
;GET SIZE OF FIRST SUBSCRIPT 
PLA 
STA 55152 
PLA 
STA 55152+1 
;GET FIRST SUBSCRIPT 
PLA 
STA SS1 
PLA 


STA 551+1 
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;MULTIPLY FIRST SUBSCRIPT * ROW SIZE (IN BYTES) USING THE SHIFT AND ADD 
;ALGORITHM. THE RESULT WILL BE IN 551 


LDA $0 ;PARTIAL PRODUCT = ZERO INITIALLY 
STA PROD 
STA PROD+1 
LDX #17 ;NUMBER OF SHIFTS = 17 
CLC 
MULLP: 
ROR PROD+1 ;SHIFT PARTIAL PRODUCT 
ROR PROD 
ROR 55141 ;SHIFT MULTIPLIER 
ROR SS1 
BCC DECCNT 
CLC ;ADD MULTIPLICAND TO PARTIAL PRODUCT 
LDA 55152 ; IF NEXT BIT OF MULTIPLIER IS 1 
ADC PROD 
STA PROD 
LDA 55152+1 
ADC PROD+1 
STA PROD+1 
DECCNT: 
DEX 
BNE MULLP 
;ADD IN THE SECOND SUBSCRIPT DOUBLED 
LDA 551 
CLC 
ADC 552 
5ТА 551 
LDA SS1+1 
ADC SS2+1 
STA 55141 
;ADD BASE ADDRESS TO FORM THE FINAL ADDRESS 
PLA 
CLC 
ADC 551 
ТАҮ ¿REGISTER Y = LOW BYTE 
PLA 
ADC 551+1 
ТАХ ;SAVE HIGH BYTE IN REGISTER X 
;RESTORE RETURN ADDRESS TO STACK 
LDA RETADR+1 
PHA 
LDA RETADR 
PHA ;RESTORE RETURN ADDRESS 
TXA ;GET HIGH BYTE BACK TO REGISTER A 


RTS . ЗЕХТТ 


RETADR: 
SS1: 
561527: 
552: 
PROD: 


“с “с че че чо 


SC0506: 


7 
DATA 
SUBS1: 


SSUBS1: 


SUBS2: 


ARYADR: 


. BLOCK 
. BLOCK 
. BLOCK 
. BLOCK 
. BLOCK 


SAMPLE EXECUTION: 


JMP 


. WORD 
. WORD 
. WORD 
. WORD 


THE ARRAY (3 


N N N N N 


ARRAY ADDRESS 
ARYADR+1 


ARYADR 


FIRST SUBSCRIPT 
SUBS1+1 


SUBS1 


SSUBS1 


| SECOND SUBSCRIPT 
SUBS2+1 


SUBS2 


D2WORD 


SC0506 


2 
l6 
4 
ARY 
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; TEMPORARY FOR RETURN ADDRESS 
;SUBSCRIPT 1 . 
;SIZE OF SUBSCRIPT 1 IN BYTES 
;SUBSCRIPT 2 

;TEMPORARY FOR THE MULTIPLY 


SIZE OF FIRST SUBSCRIPT 
SSUBS1+1 


;CALCULATE ADDRESS 

;FOR THE INITIAL TEST DATA 

;AY STARTING ADDRESS OF ARY(2,4) 
ARY + (2*16) + (4*2) 

ARY + 40 

ARY (2,4) CONTAINS 2100 HEX 


"uu H H 


=e «о чо 


; SUBSCRIPT 1 

;SIZE OF SUBSCRIPT 1 
;SUBSCRIPT 2 
;ADDRESS OF ARRAY 


ROWS OF 8 COLUMNS) 


чо e че че чо 
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ARY: . WORD 0100H,0200H,0300H,0400H, 0500H,0600H,0700H, 0800H 
. WORD 0900H,1000H,1100H,1200H,1300H,1400H,1500H,1600H 
. WORD 1700H, 1800H,1900H, 2000H, 2100H, 2200H, 2300H, 2400H 


. END ; PROGRAM 


N-Dimensional Array Index (NDIM) 


5G 


Calculates the starting address of an ele- 
ment of an N-dimensional array given the 
base address and N pairs of sizes and 
subscripts. The size of a dimension is the 
number of bytes from the starting address of 
an element to the starting address of the ele- 
ment with an index one larger in the dimen- 
sion but the same in all other dimensions. 
The array is assumed to be stored in row 
major order (that is, organized so that 
subscripts to the right change before 
subscripts to the left). 

Note that the size of the rightmost 
subscript is simply the size of the elements 
(in bytes); the size of the next subscript is the 
size of the elements times the maximum 
value of the rightmost subscript plus 1, etc. 
All subscripts are assumed to begin at zero; 
otherwise, the user must normalize the 
subscripts (see the second example at the end 
of the listing). 

Procedure: The program loops on each 
dimension, calculating the offset in that 
dimension as the subscript times the size. If 
the size is an easy case (an integral power of 
2), the program reduces the multiplication to 


Registers Used: All 


Execution Time: Approximately 1100 cycles per 
dimension plus 90 cycles overhead. Depends 
mainly on the time required to perform the 
multiplications. 


Program Size: 192 bytes 


Data Memory Required: Eleven bytes anywhere 
in memory to hold the return address (two bytes 
starting at address RETADR), the current 
subscript (two bytes starting at address SS), the 


current size (two bytes starting at address SIZE), 
the accumulated offset (two bytes starting at 
address OFFSET), the number of dimensions 
(one byte at address NUMDIM), and the product 
of size times subscript (two bytes starting at 
address PROD). 


Special Case: If the number of dimensions is 
zero, the program returns with the base address 
in registers A (more significant byte) and Y (less 
significant byte). 


left shifts. Otherwise, it performs each 
multiplication using the shift-and-add 
algorithm of Subroutine 6H. Once the pro- 
gram has calculated the overall offset, it adds 
that offset to the base address to obtain the 
starting address of the element. 
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Entry Conditions 


Order in stack (starting at the top) 


Less significant byte of return address 
More significant byte of return address 


Number of dimensions 


Less significant byte of size of rightmost 
dimension 

More significant byte of size of right- 
most dimension 


Less significant byte of rightmost 
subscript 

More significant byte of rightmost 
subscript 


Less significant byte of size of leftmost 
dimension 

More significant byte of size of leftmost 
dimension 


Less significant byte of leftmost 
subscript 

More significant byte of leftmost 
subscript 


Less significant byte of base address of 
array 

More significant byte of base address of 
array 


Exit Conditions 


(A) — More significant byte of address of 
element 


(Y) = Less significant byte of address of ele- 
ment 

The element occupies memory addresses 
from the calculated starting address through 
that address plus the rightmost subscript 
minus 1. That is, the element occupies 
memory addresses START through START 
T SIZE — 1, where START is the calculated 
address and SIZE is the size of an element in 
bytes. 


Example 


Data: 


Result: 


Base address = 3C00,; 

Number of dimensions = 0316 

Rightmost subscript = 000515 

Rightmost size = 0003, (3-byte entries) 

Middle subscript = 0003 16 

Middle size = 0012 (six 3-byte entries) 

Leftmost subscript = 0004 16 

Leftmost size = 007E; (seven sets of six 
3-byte entries) 


Address of entry = 3C00,, + 0005, X 
0003, + 0003, х 0012, + 0004,6 

X 007Е 6 = 3С00,6 + 000Е 6 + 0036,6 
+ 012815 = 3E3D 16 қ 

That is, the element is ARRAY (4,3,5); it 
occupies addresses ЗЕЗО 6 through 
3E3F,,. The maximum values of the 
various subscripts are 6 (leftmost) and 5 
(middle). Each element consists of three 
bytes. 


The general formula is 
STARTING ADDRESS = BASE ADDRESS 
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where: 


N is the number of dimensions 
SUBSCRIPT, is the ith subscript 
SIZE, is the size of the ith dimension 


Note that we use the sizes of each dimen- 
sion as parameters to reduce the number of 
repetitive multiplications and to generalize 
the procedure. The sizes can be calculated 
(and saved) as soon as the bounds of the 
array are known. Those sizes can then be 
used whenever indexing is performed on that 
array. Obviously, the sizes do not change if 
the bounds are fixed and they should not be 
recalculated as part of each indexing opera- 
tion. The sizes are also general, since the ele- 
ments can themselves consist of any number 
of bytes. 


Low byte of return address, 

High byte of return address, 

Number of dimensions, 

Low byte of size (dim N-1) in bytes, 
High byte of size (dim N-1) in bytes, 
Low byte of subscript (dim N-1), 


N= 1 
+ 2, SUBSCRIPT, x SIZE; 
і = 0 
- Title N dimensional array indexing ; 
; Мате: NDIM ; 
; i ; 
; ; 
; ; 
A Purpose: Calculate the address of an element in a ; 
; N dimensional array given the base address, ; 
; N pairs of size in bytes and subscript, and the ; 
; number of dimensions of the array. The array is ; 
; assumed to be stored in row major order ; 
(A[0,0,0],A[0,0,1], .. . ,A[0,1,0] , A[0, 1,1] , ... ; 
- Also it is assumed that all dimensions begin ; 
; at 0 as in the following Pascal declaration: ; 
Н A:ARRAY[0..10,0..3,0..5] OF SOMETHING ; 
Н ; 
; Entry: TOP OF STACK ; 
Н ; 
Н ; 
; ; 
; ; 
H ; 
P Н 
; ; 


High byte of subscript (dim N-1), 
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me чо чо чо чо “ че чо че Ve че че че че чо че че че me че че че 


NDIM: 


LOOP: 


Low byte of size (dim 0) in bytes, 
High byte of size (dim 0) in bytes, 
Low byte of subscript (dim 0), 
High byte of subscript (dim 0), 
Low byte of base address of array, 
High byte of base address of array 


Exit: Register A = High byte of address 
Register Y - Low byte of address 


Registers used: All 


Time: Approximately 1100 cycles per dimension 
plus 90 cycles overhead. 


Size: Program 192 bytes 
Data ll bytes 


; POP PARAMETERS 


PLA 
STA RETADR 

РІА 

ЅТА RETADR+1 :SAVE RETURN ADDRESS 

PLA 

STA NUMDIM ? СЕТ NUMBER OF DIMENSIONS 
sOFFSET := 0 

LDA #0 

STA OFFSET 

STA OFFSET+1 

;CHECK FOR ZERO DIMENSIONS JUST IN CASE 

LDA NUMDIM | 

ВЕО ADBASE ;ASSUME THERE IS A BASE ADDRESS EVEN 


; IF THERE ARE NO DIMENSIONS 


;LOOP ON EACH DIMENSION 
; DOING OFFSET := OFFSET + (SUBSCRIPT * SIZE) 


PLA ;POP SIZE 

STA SIZE 

PLA 

STA 512Е+1 

PLA ;POP SUBSCRIPT 
STA SS 


PLA 


чөе че че wo че че Be чо чо чо чо чо чо WE че WS чо чо =e че че WO 
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STA 55+1 

JSR NXTOFF ;OFFSET := OFFSET + (SUBSCRIPT * SIZE) 
DEC NUMDIM ;DECREMENT NUMBER OF DIMENSIONS 

BNE LOOP ;CONTINUE THROUGH ALL DIMENSIONS 


ADBASE: 
;CALCULATE THE STARTING ADDRESS OF THE ELEMENT 
;OFFSET = BASE + OFFSET 


PLA ;GET LOW BYTE OF BASE 

CLC 

ADC OFFSET ;ADD LOW BYTE OF OFFSET 

STA OFFSET 

PLA ;GET HIGH BYTE OF BASE 

ADC OFFSET+1 ;A = HIGH BYTE OF BASE + OFFSET 
STA OFFSET+1 

;RESTORE RETURN ADDRESS AND EXIT 

LDA RETADR+1 

PHA 

LDA RETADR 

PHA 

LDA OFFSET+1 ;RETURN THE ADDRESS WHICH IS IN OFFSET 
LDY OFFSET 

RTS 


че чө 


;SUBROUTINE NXTOFF 
; PURPOSE: OFFSET := OFFSET + (SUBSCRIPT * SIZE); 
;ENTRY: OFFSET = CURRENT OFFSET 

SUBSCRIPT = CURRENT SUBSCRIPT 

SIZE = CURRENT SIZE OF THIS DIMENSION 
EXIT: OFFSET = OFFSET + (SUBSCRIPT * SIZE); 
REGISTERS USED: ALL 


че ча чө че чо 


NXTOFF: 
, 
;CHECK IF SIZE IS POWER OF 2 OR 8 (EASY MULTIPLICATIONS - SHIFT ONLY) 
LDA 512Е+1 ;HIGH BYTE - 0? 
BNE BIGSZ ;BRANCH IF SIZE IS LARGE 
LDA SIZE 
LDY $0 ;Y-INDEX INTO EASY ARRAY 
LDX #52ЕАЅҮ ;X-SIZE OF EASY ARRAY 
EASYLP: 
CMP EASYAY,Y 
BEQ ISEASY ;BRANCH IF SIZE IS AN EASY ELEMENT 
INY ;INCREMENT INDEX 
DEX ;DECREMENT COUNT 
BNE EASYLP ;BRANCH IF NOT THROUGH ALL EASY ELEMENTS 


BEQ BIGSZ ;BRANCH IF SIZE IS NOT EASY 
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ISEASY: 


SHL: 


BIGSZ: 


MULLP: 


DECCNT: 


ADDOFF: 


EASYAY: 


CPY 
BEQ 


#0 
ADDOFF 


;BRANCH IF SHIFT FACTOR = 0 


;ELEMENT SIZE * SUBSCRIPT CAN BE PERFORMED WITH A SHIFT LEFT 


ASL 
ROL 
DEY 
BNE 
BEQ 


SS 
SS+1 


SHL 
ADDOFF 


;SHIFT LEFT LOW BYTE 
;SHIFT LEFT HIGH BYTE 


;CONTINUE UNTIL DONE 
;DONE SO ADD OFFSET + SUBSCRIPT 


¿SIZE IS NOT AN EASY MULTIPLICATION SO PERFORM MULTIPLICATION 
; ELEMENT SIZE AND SUBSCRIPT THE HARD WAY 


LDA 
STA 
STA 
LDX 
CLC 


ROR 
ROR 
ROR 
ROR 
BCC 
CLC 
LDA 
ADC 
STA 
LDA 
ADC 
STA 


STA 
RTS 
. BYTE 


. BYTE 
. BYTE 


#0 
PROD 
PROD+1 
#17 


PROD+1 


DECCNT 


SIZE 
PROD 
PROD 
512Е+1 
PROD+1 
PROD+1 


MULLP 


SS 


OFFSET 
OFFSET 
55+1 


OFFSET+1 
OFFSET+1 


d» N) I 


;PARTIAL PRODUCT = ZERO INITIALLY 
;NUMBER OF SHIFTS - 1? 


;SHIFT PARTIAL PRODUCT 


¿SHIFT MULTIPLIER 


;ADD MULTIPLICAND TO PARTIAL PRODUCT 
; IF NEXT BIT OF MULTIPLIER IS 1 


;ADD LOW BYTES 


;ADD HIGH BYTES 


HIFT FACTOR 


me чо % чо 


N к O @ 


OF 
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. BYTE 8 3 

. BYTE 16. : 4 

. BYTE 32. :5 

. BYTE 64. ; 6 

. BYTE 128. :7 
SZEASY . EQU S-EASYAY 
; 
DATA 
RETADR: .BLOCK 2 ;TEMPORARY FOR RETURN ADDRESS 
SS: .BLOCK 2 ;SUBSCRIPT INTO THE ARRAY 
SIZE: .BLOCK 2 ¿SIZE ОЕ AN ARRAY ELEMENT 
OFFSET: .BLOCK 2 ? ТЕМРОКАКУ FOR CALCULATING 
NUMDIM: „ВОСК 1 NUMBER OF DIMENSIONS 
PROD: .BLOCK 2 ;TEMPORARY FOR MULTIPLICATION IN NXTOFF 


SAMPLE EXECUTION: 


че че че «о чо 
че че чо че чо 


: PROGRAM SECTION 
SC0507: 


; 

;FIND ADDRESS OF АҮ1 [1,3,0] 

; SINCE LOWER BOUNDS OF ARRAY 1 ARE ALL ZERO IT IS NOT 
; NECESSARY TO NORMALIZE THEM 


;PUSH BASE ADDRESS OF ARRAY 1 . 


LDA AY1ADR+1 
PHA 

LDA AYlADR 
PHA 

; PUSH SUBSCRIPT AND SIZE FOR DIMENSION 1 
LDA $0 

PHA 

LDA #1 

PHA 

LDA #0 

PHA 

LDA #A1SZ1 
PHA 

; PUSH SUBSCRIPT AND SIZE FOR DIMENSION 2 
LDA #0 

PHA 

LDA #3 

PHA 

LDA #0 

PHA 

LDA #A1SZ2 


PHA 
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; PUSH SUBSCRIPT AND SIZE FOR DIMENSION 3 


LDA 
PHA 
LDA 
PHA 
LDA 
PHA 
LDA 
PHA 


#0 
#0 
#0 
4А1523 


;PUSH NUMBER OF DIMENSIONS 


LDA 
PHA 


JSR 
BRK 


me че чо чо 


$AlDIM 


NDIM 


;CALCULATE ADDRESS 

? АУ STARTING ADDRESS OF ARY1(1,3,0) 
; ARY + (1*126) + (3*21) + (0*3) 
ARY + 189 


мө ~ 


CALCULATE ADDRESS OF AY2[-1,6] 
SINCE LOWER BOUNDS OF AY 2 DO NOT START AT ZERO THE SUBSCRIPTS 
MUST BE NORMALIZED 


;PUSH BASE ADDRESS OF ARRAY 2 


LDA 
PHA 
LDA 
PHA 


AY2ADR+1 


AY2ADR 


;PUSH (SUBSCRIPT - LOWER BOUND) AND SIZE FOR DIMENSION 1 


LDA 
SEC 


#-1 
#A2D1L 


$0FFH 
#0ЕЕН 


#0 
#A2SZ1 


;SAVE LOW BYTE 

;HIGH BYTE OF -1 SUBSCRIPT 
;HIGH BYTE OF A2D1L 

;PUSH HIGH BYTE 


;PUSH LOW BYTE 


;PUSH (SUBSCRIPT - LOWER BOUND) AND SIZE FOR DIMENSION 2 


LDA 
SEC 
SBC 
TAX 
LDA 
SBC 
PHA 
TXA 
PHA 
LDA 


$6 
$A2D2L 


$0 
#0 


#0 


;SAVE LOW BYTE 


;PUSH HIGH BYTE 


;PUSH LOW BYTE 
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PHA 
LDA #A2SZ2 
PHA 
; PUSH NUMBER OF DIMENSIONS 
LDA #A2DIM 
PHA 
JSR NDIM sCALCULATE ADDRESS 
BRK :АҮ = STARTING ADDRESS OF ARY1(-1,6) 
; = ARY + (((-1) - (-5))*18) + ((6 - 2) *2) 
: = ARY + 80 
JMP SC0507 
: DATÀ 
AYlADR: .WORD AY1 zADDRESS OF ARRAY 1 
AY2ADR: .WORD AY2 ¿ADDRESS OF ARRAY 2 


; 
;AYl : ARRAY [A1D1L..A1D1H,A1D2L..A1D2H,A1D3L..A1D3H] OF THREE BYTE ELEMENTS 


; ЕО ws За 0 «as 5 y 0 «« 6 

AlDIM: .EQU 3 ;NUMBER OF DIMENSIONS OF ARRAY 1 
AlDlL:  .EQU 0 ;LOW BOUND OF ARRAY 1 DIMENSION 1 
AlDlH: .EQU 3 ;HIGH BOUND OF ARRAY 1 DIMENSION 1 
AlD2L:  .EQU 0 ;LOW BOUND OF ARRAY 1 DIMENSION 2 
AlD2H:  .EQU 5 ;HIGH BOUND OF ARRAY 1 DIMENSION 2 
AlD3L:  .EQU Ü ;LOW BOUND OF ARRAY 1 DIMENSION 3 
AlD3H:  .EQU 6 ;HIGH BOUND OF ARRAY 1 DIMENSION 3 
А1523:  .EQU 3 ;SIZE OF AN ELEMENT IN DIMENSION 3 
А1522:  .EQU ((AID3H-Al1D3L)-*1)*A1S23 ;SIZE OF AN ELEMENT IN DIMENSION 2 
AlSZ1:  .EQU ((ALD2H-A1D2L) +1) *A1SZ2 ;SIZE OF AN ELEMENT IN DIMENSION 1 
АҮ 1: .BLOCK ((А101Н-А1011) +1) *А1571 ;THE ARRAY 


;AY2 : ARRAY[AlDIL..AlDlH,AlD2L..A1D2H] OF WORD 


; NE ше Ade x 

A2DIM: .EQU 2 ;NUMBER OF DIMENSIONS OF ARRAY 2 
A2DlL:  .EQU =5 ;LOW BOUND OF ARRAY 2 DIMENSION 1 
A2DlH:  .EQU =1 ;HIGH BOUND OF ARRAY 2 DIMENSION 1 
A2D2L:  .EQU 2 ;LOW BOUND OF ARRAY 2 DIMENSION 2 
A2D2H:  .EQU 10 ;HIGH BOUND OF ARRAY 2 DIMENSION 2 
A2822:  .EQU 2 ;SIZE OF AN ELEMENT IN DIMENSION 2 
А2521: .Е00 ((A2D2H-A2D2L) +1) *A2SZ2 ;SIZE OF AN ELEMENT IN DIMENSION 1 
AY2: ¿BLOCK ((A2D1H-A2D1L)+1)¥*A2SZ1 ;THE ARRAY 


. END ; PROGRAM 


16-Bit Addition (ADD 16) 


Adds two 16-bit operands obtained from 
the stack and places the sum at the top of the 
stack. All 16-bit numbers are stored in the 
usual 6502 style with the less significant byte 
on top of the more significant byte. 

Procedure: The program clears the Carry 
flag initially and adds the operands one byte 
at a time, starting with the less significant 
bytes. It sets the Carry flag from the addition 
of the more significant bytes. 


Entry Conditions 


Order in stack (starting from the top) 


Less significant byte of return address 
More significant byte of return address 


Less significant byte of first operand 
More significant byte of first operand 


Less significant byte of second operand 
More significant byte of second operand 


Examples 


1. Data: First operand = 03Е1,6 


Second operand = 07Е4 16 


Result: Sum = 0ВС516 


Carry = 0 
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Registers Used: A, P, Y 
Execution Time: 80 cycles 


Program Size: 38 bytes 


Data Memory Required: Four bytes anywhere in 
memory for the second operand (two bytes start- 
ing at address ADEND2) and the return address 
(two bytes starting at address RETADR). 


Exit Conditions 


Order in stack (starting from the top) 


Less significant byte of sum 
More significant byte of sum 


2. Data: First operand = A45Djg 
Second operand = 97Е1 6 
Result: Sum = ЗСЗЕ 6 
Carry = 1 
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; Title 16 bit addition ; 
; Name: ADD16 ; 
Purpose: Add 2 16 bit signed or unsigned words and return 


a 16 bit signed or unsigned sum. 


Entry: TOP OF STACK 
Low byte of return address, 
High byte of return address, 
Low byte of operand 2, 
High byte of operand 2, 
Low byte of operand 1, 
High byte of operand 1 


Exit: Sum = operand 1 + operand 2 
TOP OF STACK 
Low byte of sum, 
High byte of sum 


Registers used: A,P,Y 


Time: 80 cycles 
Size: Program 38 bytes 
Data 4 bytes 


ча че чо чо чо чо чо чо чо чо NO чо чо чо BO чо че че чо NO We чо чо чо чо 
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ADD16: 
sSAVE THE RETURN ADDRESS 
PLA 
STA RETADR 
PLA 
STA RETADR+1 
‚СЕТ ADDEND 2 
PLA 
STA ADEND2 
PLA | 
STA ADEND2+1 
;SUM ADDEND 2 WITH ADDEND 1 
PLA 
CLC 
ADC ADEND2 
TAY 25АУЕ LOW BYTE OF SUM 
PLA 
ADC ADEND2+1 


;PUSH THE SUM 
PHA ;PUSH HIGH BYTE 
TYA 
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PHA ;PUSH LOW BYTE 
;PUSH RETURN ADDRESS AND EXIT 
LDA RETADR+1 
PHA 
LDA RETADR 
PHA 
RTS 
DATA 
ADEND2: .BLOCK 2 ;TEMPORARY FOR ADDEND 2 
RETADR: .BLOCK 2 :TEMPORARY FOR RETURN ADDRESS 
Н 
, 
; SAMPLE EXECUTION 
; 
; 
SC0601: 
;SUM OPRND1 + OPRND2 
LDA OPRND1+1 
PHA i 
LDA OPRND1 
PHA 
LDA OPRND2+1 
PHA 
LDA OPRND2 
PHA 
JSR ADD16 
PLA 
TAY 
PLA 
BRK sA = HIGH BYTE, Y = LOW BYTE 
JMP SC0601 


;TEST DATA, CHANGE FOR DIFFERENT VALUES 
OPRNDl .WORD 1023 1023 + 123 = 1146 = 047АН 
OPRND2 .WORD 123 


. END ; PROGRAM 


че Эс Эс че чо 


16-Bit Subtraction (SUB 16) 


Subtracts two 16-bit operands obtained 
from the stack and places the difference at 
the top of the stack. All 16-bit numbers are 
stored in the usual 6502 style with the less 
significant byte on top of the more significant 
byte. The subtrahend (number to be 
subtracted) is stored on top of the minuend 
(number from which the subtrahend is 
subtracted). The Carry flag acts as an 
inverted borrow, its usual role in the 6502. 

Procedure: The program sets the Carry flag 
(the inverted borrow) initially and subtracts 
the subtrahend from the minuend one byte at 


6B 


Registers Used: A, P, Y 
Execution Time: 80 cycles 
Program Size: 38 bytes 


Data Memory Required: Four bytes anywhere in 
memory for the subtrahend (two bytes starting at 
address SUBTRA) and the return address (two 
bytes starting at address RETADR). 


а time, starting with the less significant bytes. 
It sets the Carry flag from the subtraction of 
the more significant bytes. 


Entry Conditions 


Order in stack (starting from the top) 


Less significant byte of return address 
More significant byte of return address 


Less significant byte of subtrahend 
More significant byte of subtrahend 


Less significant byte of minuend 
More significant byte of minuend 


Exit Conditions 


Order in stack (starting from the top) 


Less significant byte of difference (minuend 


Examples 


Minuend = A45D 6 
Subtrahend = 97Е1 6 


1 Data: 


Difference = Minuend — Subtrahend 
= 0C7C;, 


Carry — 1 (no borrow) 


Result: 


— subtrahend) 

More significant byte of difference (minuend 
— subtrahend) 

2. Data: Minuend = 03Е1,6 


Subtrahend = 07Е4 16 


Difference = Minuend — Subtrahend 
= ЕВЕР 
Carry = 0 (borrow generated) 


Result: 
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$0816: 


Title l6 bit subtraction 
Name: SUB16 
Purpose: Subtract 2 16 bit signed or unsigned words and 


return a 16 bit signed or unsigned difference. 


Entry: TOP OF STACK 
Low byte of return address, 
High byte of return address, 
Low byte of subtrahend, 
High byte of subtrahend, 
Low byte of minuend, 
High byte of minuend 


Exit: Difference = minuend - subtrahend 
TOP OF STACK 
Low byte of difference, 
High byte of difference 


Registers used: A,P,Y 


Time: 80 cycles 
Size: Program 38 bytes 
Data 4 bytes 


;SAVE THE RETURN ADDRESS 


PLA 

STA RETADR 

PLA 

STA RETADR+1 

;GET SUBTRAHEND 

PLA 

STA SUBTRA 

PLA 

STA SUBTRA+1 

;SUBTRACT SUBTRAHEND FROM MINUEND 

PLA 

SEC 

SBC SUBTRA 

TAY ;SAVE LOW BYTE OF THE DIFFERENCE 
PLA 

SBC SUBTRA+1 

;PUSH THE DIFFERENCE 

PHA ; PUSH HIGH BYTE 
TYA 


PHA ;PUSH LOW BYTE 


=e че че че 
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6B 16-BIT SUBTRACTION (SUB16) 


;PUSH RETURN ADDRESS AND EXIT 


LDA RETADR+1 
PHA 
LDA RETADR 
PHA 
RTS 
; DATA 
SUBTRA: .BLOCK 2 ;TEMPORARY FOR SUBTRAHEND 
RETADR: .BLOCK 2 ;TEMPORARY FOR RETURN ADDRESS 
; 
, 
; SAMPLE EXECUTION 
; 
; 
SC0602: 
;SUBTRACT OPRND2 FROM OPRND1 
LDA OPRND1+1 
PHA 
LDA OPRND1 
PHA 
LDA OPRND2+1 
PHA 
LDA OPRND2 
PHA 
JSR SUB16 
PLA 
TAY 
PLA 
BRK ;А = HIGH BYTE, Y = LOW BYTE 
JMP SC0602 
;TEST DATA - CHANGE TO TEST OTHER VALUES 
OPRND1 .WORD 123 123 - 1023 = -900 = OFC7CH 
OPRND2 .WORD 1023 


„ЕКО 


: PROGRAM 
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16-Bit Multiplication (MUL 16) 


Multiplies two 16-bit operands obtained 
from the stack and places the less significant 
word of the product at the top of the stack. 
All 16-bit numbers are stored in the usual 
6502 style with the less significant byte on top 
of the more significant byte. 

Procedure: The program uses an ordinary 
add-and-shift algorithm, adding the multipli- 
cand to the partial product each time it finds a 
1 bit in the multiplier. The partial product 
and the multiplier are shifted 17 times (the 
number of bits in the multiplier plus 1) with 
the extra loop being necessary to move the 
final Carry into the product. The program 
maintains a full 32-bit unsigned partial pro- 
duct in memory locations (starting with the 
most significant byte) HIPROD- 1, 


Entry Conditions 


Order in stack (starting from the top) 


Less significant byte of return address 
More significant byte of return address 


Less significant byte of multiplier 
More significant byte of multiplier 


Less significant byte of multiplicand 
More significant byte of multiplicand 


Examples 


1. Data: Multiplier = 0012,6 (18,9) 


Multiplicand = 030115 (977,9) 


Result: Product = 4482 (17,586,0) 


236 


6C 


Registers Used: All 


Execution Time: Approximately 650 to 1100 
cycles, depending largely on the number of | bits 
in the multiplier. 


Program Size: 238 bytes 
Data Memory Required: Eight bytes anywhere in 


memory for the multiplicand (two bytes starting 
at address MCAND), the multiplier and less sig- 
nificant word of the partial product (two bytes 
starting at address MLIER), the more significant 
word of the partial product (two bytes starting at 
address HIPROD), and the return address (two 
bytes starting at address RETADR). 


HIPROD, MLIER +1, and MLIER. The less 
significant word of the product replaces the 
multiplier as the multiplier is shifted and 
examined for 1 bits. 


Exit Conditions 


Order in stack (starting from the top) 


Less significant byte of less significant word 
of product 

More significant byte of less significant word 
of product 


2. Data: Multiplier = 37D1,6.(14,289,0) 


Multiplicand = А045, (41,0295) 


Result: Product = АВ55 | (43,8619). This is 
actually the less significant 16-bit 
word of the 32-bit product 


22F1AB55,, (586,264, 381 9). 


Note that MULI16 returns only the less 
significant word of the product to maintain 
compatibility with other 16-bit arithmetic 
operations. The more significant word of the 
product is available in memory locations 
HIPROD (less significant byte) and 
HIPROD +1 (more significant byte), but the 


; Title 

; Мапе: MUL16 

; 

; 
Purpose: 
Entry: TOP OF STACK 
Exit: 


TOP OF STACK 


Registers used: All 


me че чо чо че Ге чо TO ов чо чо че чо че WE WE VO NO чо чо WH че че WE WE 


Time: 
Size: Program 238 bytes 
Data 8 bytes 

; 
MUL16: 

;SAVE RETURN ADDRESS 

PLA 

STA RETADR 

PLA 

STA RETADR+1 

;GET MULTIPLIER 

PLA 

STA MLIER 


PLA 


16 bit Multiplication 


Multiply 2 signed or unsigned 16 bit words and 
return a 16 bit signed or unsigned product. 


Low byte of return address, 
High byte of return address, 
Low byte of multiplier, 

High byte of multiplier, 

Low byte of multiplicand, 
High byte of multiplicand 


Product = multiplicand * multiplier 


Low byte of product, 
High byte of product, 


Approximately 650 to 1100 cycles 
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6C 16-BIT MULTIPLICATION (MUL 16) 


user should note that it is correct only if the 
operands are unsigned. If the operands are 
signed numbers and either one is negative, 
the user must determine the sign of the pro- 
duct and replace negative operands with their 
absolute values (two's complements) before 
calling MUL16. 


=e че че чо 


me че чо чо чо че че че чо че We че WE че WE зо MQ чо че че чо че че че VEO 
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STA MLIER+1 
;GET MULTIPLICAND 
PLA 

STA MCAND 
PLA 

STA MCAND+1 


; PERFORM MULTIPLICATION USING THE SHIFT AND ADD ALGORITHM 
; THIS ALGORITHM PRODUCES A UNSIGNED 32 BIT PRODUCT IN 
; HIPROD AND MLIER WITH HIPROD BEING THE HIGH WORD. 


LDA $0 
STA HIPROD :2ЕВО HIGH WORD OF PRODUCT 
STA HIPROD+1 
LDX $17 ? NUMBER OF BITS IN MULTIPLIER PLUS 1, THE 
; EXTRA LOOP IS TO MOVE THE LAST CARRY INTO 
: THE PRODUCT 
CLC ; CLEAR CARRY FOR FIRST TIME THROUGH LOOP 
MULLP: 
, 
‚ТЕ NEXT BIT = 1 THEN 
: HIPROD :- HIPROD + MULTIPLICAND 
ROR HIPROD+1 
ROR HI PROD 
ROR MLIER+1 
ROR MLIER 
BCC DECCNT ‚ВВАМСН IF NEXT ВІТ OF MULTIPLIER IS 0 
CLC sNEXT BIT IS 1 SO ADD MULTIPLICAND TO PRODUCT 
LDA MCAND 
ADC HI PROD 
STA HI PROD 
LDA MCAND+1 
ADC HIPROD+1 
STA HIPROD+1 ¿CARRY = OVERFLOW FROM ADD 
DECCNT: 
DEX 
BNE MULLP sCONTINUE UNTIL DONE 
‚РОЗН LOW WORD OF PRODUCT ON TO STACK 
LDA MLIER+1 
PHA 
LDA MLIER 
PHA 
¿RESTORE RETURN ADDRESS 
LDA RETADR+1 
PHA 
LDA RETADR 
PHA 
RTS 
; DATA 


MCAND: .BLOCK 2 ;MULTIPLICAND 


MLIER: 
HIPROD: 
RETADR: 


me =e че ` na 


5С0603: 


OPRNDI 
OPRND2 
RESULT: 


. BLOCK 
. BLOCK 
. BLOCK 


SAMPLE EXECUTION: 


N N N 


6C 16-BIT MULTIPLICATION (MUL 16) 


;MULTIPLIER AND LOW WORD OF PRODUCT 
;HIGH WORD OF PRODUCT 
;RETURN ADDRESS 


;MULTIPLY OPRND1 * OPRND2 AND STORE THE PRODUCT AT RESULT 


LDA 
PHA 
LDA 
PHA 
LDA 
PHA 
LDA 


JMP 

. WORD 

. WORD 

. BLOCK 


|. END 


OPRND1+1 
OPRND1 
OPRND2+1 
OPRND2 
MUL16 
RESULT 


RESULT+1 


SC0603 
-2 
1023 

2 


; PROGRAM 


;MULTIPLY 


-2046 = 0Е802Н 
02H 
F 8H 


RESULT OF 1023 * -2 
IN MEMORY RESULT 
RESULT+1 


=e 90 vo 


;2 BYTE RESULT 
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16-Bit Division 


(SDIV16, UDIV16, SREM16, UREM16) 


6D 


Divides two 16-bit operands obtained 
from the stack and places either the quotient 
or the remainder at the top of the stack. 
There are four entry points: SDIV16 returns 
a 16-bit signed quotient from dividing two 
16-bit signed operands, UDIV16 returns 
a 16-bit unsigned quotient from dividing 
two 16-bit unsigned operands, SREMI16 re- 
turns a 16-bit remainder (a signed number) 
from dividing two 16-bit signed operands, 
and UREMI6 returns a 16-bit unsigned 
remainder from dividing two 16-bit unsigned 
operands. All 16-bit numbers are stored in 
the usual 6502 style with the less significant 
byte on top of the more significant byte. The 
divisor is stored on top of the dividend. If the 
divisor is zero, the Carry flag is set and a zero 
result is returned; otherwise, the Carry flag is 
cleared. 

Procedure: If the operands are signed, the 
program determines the sign of the quotient 
and takes the absolute values of any negative 
operands. It also must retain the sign of the 
dividend, since that determines the sign of 
the remainder. The program then performs 
the actual unsigned division by the usual 
shift-and-subtract algorithm, shifting quo- 
tient and dividend and placing a 1 bit in the 


Entry Conditions 


Order in stack (starting from the top) 
Less significant byte of return address 
More significant byte of return address 


Less significant byte of divisor 
More significant byte of divisor 


‘Less significant byte of dividend 
More significant byte of dividend 
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Registers Used: All 

Execution Time: Approximately 1000 to 1160 
cycles, depending largely on the number of trial 
subtractions that are successful and thus require 
the replacement of the previous dividend by the 
remainder. 

Program Size: 293 bytes 

Data Memory Required: Eleven bytes anywhere 
in memory. These are utilized as follows: two 
bytes for the divisor (starting at address 
DVSOR); four bytes for the extended dividend 
(starting at address DVEND) and also for the 
quotient and remainder; two bytes for the return 
address (starting at address RETADR); one byte 
for the sign of the quotient (address SQUOT); 
one byte for the sign of the remainder (address 
SREM); and one byte for an index to the result 
(address RSLTIX). 

Special Case: If the divisor is zero, the program 
returns with the Carry flag set to 1 and a result of 
zero. Both the quotient and the remainder are 
zero. 


quotient each time a trial subtraction is suc- 
cessful. If the operands are signed, the pro- 
gram must negate (that is, subtract from 
zero) any result (quotient or remainder) that 
is negative. The Carry flag is cleared if the 
division is proper and set if the divisor is 
found to be zero. A zero divisor also results 
in a return with the result (quotient or 
remainder) set to zero. 


Exit Conditions 


Order in stack (starting from the top) 


Less significant byte of result 
More significant byte of result 


If the divisor is non-zero, Carry = 0 and the 
result is normal. If the divisor is zero, Carry 
= | and the result 15 0000,.. 
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Examples 


Dividend = 03Е0,, = 99210 
Divisor = 0086 = 18210 


1. Data: 


Quotient (from UDIV16) = 0005,, 

Remainder (from UREM16) = 0052,6 
= 008210 

Carry = 0 (no divide-by-zero error) 


Result: 


Note that we have taken the view that the 
remainder of a signed division may be either 
positive or negative. In our procedure, the 
remainder always takes the sign of the divi- 
dend. The user can easily examine the quo- 
tient and change the form to obtain a 
remainder that is always positive. In that 
case, the final result of Example 2 would be 


Quotient = FFF2,, = —14,, 
Remainder (always positive) = 0068, 


= 104, 
; Title 16 bit division 
; Name: 
; 
Purpose: SDIV16 


UDIV16 


SREM16 
16 bit 


UREM16 


чо че чо че TO че 99 чо RO че че NS чо TO че че че WE 


Entry: TOP OF STACK 


SDIV16, UDIV16, SREM16, UREM16 


Divide 2 signed 16 bit words and return a 
l6 bit signed quotient. 


Divide 2 unsigned 16 bit words and return a 
l6 bit unsigned quotient. 


Divide 2 signed 16 bit words and return a 
signed remainder. 


Divide 2 unsigned 16 bit words and return a 
l6 bit unsigned remainder. 


2. Data: Dividend = D73A в = — 10,438, 
Divisor = 02Е116 = 75310 
Result: Quotient (from SDIV16) = ЕЕЕЗ 6 
= —13% 
Remainder (from SREM16) = FD77,6 
= — 649,9 


Carry = 0 (no divide-by-zero error) 


Regardless of the entry point used, the 
program always calculates both the quotient 
and the remainder. Upon return, the quo- 
tient is available in addresses DVEND and 
DVEND+1 (more significant byte in 
DVEND +1) and the remainder in addresses 
DVEND+2 and DVEND+3 (more signifi- 
cant byte in DVEND +3). Thus, the user can 
always obtain the result that is not returned 
in the stack. 


=e че e чо 


чо че че че че чо NO ча WO WE че ча чо ча че чо че WE 
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Exit: 


Registers used: 
Time: 


Size: 


чо чо Ге TO че чо чо чо чо чо TO "0 че че че чо TO чо че че VO че чо чо vo ao чо 


;UNSIGNED DIVISION 
UDIV16: 

LDA #0 

BEQ UDIVMD 


;UNSIGNED REMAINDER 
UREM16: 
LDA i2 


UDIVMD: 
STA RSLTIX 


Low byte of return address, 
High byte of return address, 


Low byte of divisor, 

High byte of divisor, 
Low byte of dividend, 
High byte of dividend 


TOP OF STACK 
Low byte of result, 
High byte of result, 


If no errors then 
carry := 0 

else 
divide by zero error 
carry := 1 
quotient := 0 
remainder := 0 


All 


Approximately 1000 to 1160 cycles 


Program 293 bytes 
Data 13 bytes 


;RESULT IS QUOTIENT (INDEX=0) 


¿RESULT IS REMAINDER (INDEX=2) 


;RESULT INDEX (0 FOR QUOTIENT, 
2 FOR REMAINDER) 


е 
[/ 


;SAVE RETURN ADDRESS 


PLA 

STA RETADR 
PLA 

STA RETADR+1 
;GET DIVISOR 
PLA 

STA DVSOR 
PLA 

STA DVSOR+1 
;GET DIVIDEND 
PLA 

STA DVEND 


PLA 


me чо чо че чо чо чо че чо VO че WTO чо че Vo че ча чо че Зе че че чо чо we че чо 


DI VER: 
DIVOK: 


i 
; SIGNED 
SDIV16: 


SIGNED 
SREM16: 


SDIVMD: 
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STA DVEND+1 

;PERFORM DIVISION 

JSR UDIV 

BCC DIVOK ;BRANCH IF NO ERRORS 

JMP EREXIT 

JMP OKEXIT 

DIVISION 

LDA #0 ¿RESULT IS QUOTIENT (INDEX=0) 

BEQ SDIVMD 

REMAINDER 

LDA #2 ;RESULT IS REMAINDER (INDEX=2) 

BNE SDI VMD 

STA RSLTIX ;RESULT INDEX (0 FOR QUOTIENT, 
; 2 FOR REMAINDER) 

¿SAVE RETURN ADDRESS 

PLA 

STA RETADR 

PLA 

STA RETADR+1 

;GET DIVISOR 

PLA 

STA DVSOR 

PLA 

STA DVSOR+1 

;GET DIVIDEND 

PLA 

STA DVEND 

PLA 

STA DVEND+1 


;DETERMINE SIGN OF QUOTIENT BY PERFORMING AN EXCLUSIVE OR OF THE 

; HIGH BYTES. IF THE SIGNS ARE THE SAME THEN BIT 7 WILL BE 0 AND THE 
; QUOTIENT IS POSITIVE. IF THE SIGNS ARE DIFFERENT THEN THE QUOTIENT 
; IS NEGATIVE. 


LDA DVEND+1 

EOR DVSOR+1 

STA SQUOT 

¿SIGN OF REMAINDER IS THE SIGN OF THE DIVIDEND 
LDA DVEND+1 

STA SREM 


:ТАКЕ THE ABSOLUTE VALUE OF THE DIVISOR 
LDA DVSOR+1 
BPL CHKDE ;BRANCH IF ALREADY POSITIVE 
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CHKDE: 


DODIV: 


DOREM: 


EREXIT: 


LDA 
SEC 
SBC 
STA 
LDA 
SBC 
STA 


;TAKE THE ABSOLUTE 


LDA 
BPL 
LDA 
SEC 
SBC 
STA 
LDA 
SBC 
STA 


;DIVIDE 
JSR 
BCS 


; NEGATE 
LDA 
BPL 
LDA 
SEC 
SBC 
STA 
LDA 
SBC 
STA 


; NEGATE 
LDA 
BPL 
LDA 
SEC 
SBC 
STA 
LDA 
SBC 
STA 
JMP 


DVSOR+1 
DVSOR+1 


DVEND+1 
DODIV 


DVEND+1 
DVEND+1 


ABSOLUTE VALUES 
UDIV 
EREXIT 


¿SUBTRACT DIVISOR FROM ZERO 


VALUE OF THE DIVIDEND 


;BRANCH IF DIVIDEND IS POSITIVE 
;SUBTRACT DIVIDEND FROM ZERO 


;EXIT IF DIVIDE BY ZERO 


QUOTIENT IF IT IS NEGATIVE 


SQUOT 
DOREM 
#0 


DVEND 
DVEND 
#0 
DVEND+1 
DVEND+1 


REMAINDER IF IT 
SREM 

OKEXIT 

$0 


DVEND+2 
DVEND+2 
#0 
DVEND+3 
DVEND+3 
OKEXIT 


;ERROR EXIT (CARRY = 1l, 


LDA 
STA 
STA 
STA 
STA 
SEC 


#0 
DVEND 
DVEND+1 
DVEND+2 
DVEND+3 


;BRANCH IF QUOTIENT IS POSITIVE 
;SUBTRACT QUOTIENT FROM ZERO 


IS NEGATIVE 


;BRANCH IF REMAINDER IS POSITIVE 


RESULTS ARE ZERO) 


;QUOTIENT := 0 


;REMAINDER := 0 
;CARRY = 1 IF ERROR 
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BCS DVEXIT 

GOOD EXIT (CARRY = 0) 
OKEXIT: 

CLC ¿CARRY = 0, NO ERRORS 
DVEXIT: 

;PUSH RESULT 

LDX RSLTIX ‚СЕТ INDEX TO RESULT (0sQUOTIENT, 2=REMAINDER) 

LDA DVEND+1,X 

PHA 

LDA DVEND, X 

PHA 

¿RESTORE RETURN ADDRESS 

LDA RETADR+1 

PHA 

LDA RETADR 

PHA 

RTS 


; k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k K K 


;ROUTINE: UDIV 

;PURPOSE: DIVIDE A 16 BIT DIVIDEND BY A 16 BIT DIVISOR 
;ENTRY: DVEND - DIVIDEND 

: DVSOR = DIVISOR 

;EXIT: DVEND = QUOTIENT 

: DVEND+2 = REMAINDER 


;REGISTERS USED: ALL 
; k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k K K 


UDIV: 
¿ZERO UPPER WORD OF DIVIDEND THIS WILL BE CALLED DIVIDEND[1] BELOW 
LDA #0 
STA DVEND+2 
STA DVEND+3 
;FIRST CHECK FOR DIVISION BY ZERO 
LDA DVSOR 
ORA DVSOR+1 
BNE OKUDIV :BRANCH IF DIVISOR IS NOT ZERO 
SEC sELSE ERROR EXIT 
RTS 
;PERFORM THE DIVISION BY TRIAL SUBTRACTIONS 
OKUDIV: 
LDX #16 ;LOOP THROUGH 16 BITS 
DIVLP: 
ROL DVEND :SHIFT THE CARRY INTO BIT 0 OF DIVIDEND 
ROL DVEND*1 ¿WHICH WILL BE THE QUOTIENT 
ROL DVEND+2 ;AND SHIFT DIVIDEND AT THE SAME TIME 
ROL DVEND+3 


; 
;CHECK IP DIVIDEND[1] IS LESS THAN DIVISOR 
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CHKLT: | 
SEC 
LDA DVEND+2 
SBC DVSOR 
TAY ;SAVE LOW BYTE IN REG Y 
LDA DVEND+3 
SBC DVSOR+1 ;SUBTRACT HIGH BYTES WITH RESULT IN REG A 
BCC DECCNT ;BRANCH IF DIVIDEND < DIVISOR AND CARRY 
STY DVEND+2 ELSE 
STA DVEND+3 ; DIVIDEND[1] := DIVIDEND[1] - DIVISOR 
DECCNT: 
DEX 
BNE DIVLP 
ROL DVEND ;SHIFT IN THE LAST CARRY FOR THE QUOTIENT 
ROL DVEND+1 
CLC ;NO ERRORS, CLEAR CARRY 
RTS 
; DATA 


;DIVISOR 

;DIVIDEND[0] AND QUOTIENT 
;DIVIDEND[1] AND REMAINDER 

;RETURN ADDRESS 

;SIGN OF QUOTIENT 

:SIGN OF REMAINDER 

;INDEX TO THE RESULT 0 IS QUOTIENT, 
; 2 IS REMAINDER 


DVSOR: .BLOCK 
DVEND: .BLOCK 


RETADR: .BLOCK 
50007: .BLOCK 
SREM: . BLOCK 
RSLTIX: .BLOCK 


- ммм м 


SAMPLE EXECUTION: 


me чо we че чо 
че че ча че чо 


; PROGRAM SECTION 


SC0604: 

;SIGNED DIVIDE, OPRND1 / OPRND2, STORE THE QUOTIENT AT QUOT 

LDA OPRND1+1 

PHA 

LDA OPRND1 

PHA 

LDA OPRND2+1 

PHA 

LDA OPRND2 

PHA 

JSR SDIV16 ;SIGNED DIVIDE 

PLA 

STA QUOT 

PLA 

STA QUOT +1 

BRK ;RESULT OF -1023 / 123 = -8 
; IN MEMORY QUOT = F8 HEX 
; 000Т+1 = FF HEX 
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;UNSIGNED DIVIDE, OPRND1 / OPRND2, STORE THE QUOTIENT AT QUOT 
LDA OPRND1+1 


PHA 

LDA OPRND1 
PHA 

LDA OPRND2+1 
PHA 

LDA OPRND2 
PHA 

JSR UDIV16 ;UNSIGNED DIVIDE 
PLA 

STA QUOT 

PLA 

STA QUOT +1 
BRK 


;RESULT OF 64513 / 123 = 524 

; IN MEMORY QUOT z 0C HEX 

; QUOT+1 = 02 HEX 

¿SIGNED REMAINDER, ОРКМр1 / OPRND2, STORE THE REMAINDER АТ REM 
LDA OPRND1+1 


PHA 

LDA OPRND1 

PHA 

LDA OPRND2+1 

PHA 

LDA OPRND2 

PHA 

JSR SREM16 ; REMAINDER 

PLA 

STA REM 

PLA 

STA REM+1 

BRK ;THE REMAINDER OF -1023 / 123 = -39 
; IN MEMORY REM = D9 HEX 
; REM+1 = FF HEX 


;UNSIGNED REMAINDER, OPRND1 / OPRND2, STORE THE REMAINDER AT REM 
LDA OPRND1+1 
PHA 
LDA OPRND1 
PHA 
LDA OPRND2+1 
PHA 
LDA OPRND2 
PHA | 
JSR UREM16 ; REMAINDER 
PLA 
STA REM 
PLA 
STA REM+1 
PLA 
BRK THE REMAINDER OF 64513 / 123 = 61 
IN MEMORY REM = 3D HEX 
ВЕМ+1 = 00 


че че чо 
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? ПАТА 
OPRND1 
OPRND2 
QUOT: 
REM: 


JMP 


‚ WORD 
. WORD 
. BLOCK 
. BLOCK 


. END 


SC0604 


-1023 
123 

2 

2 


: PROGRAM | 


;DIVIDEND (64513 UNSIGNED) 
;DIVISOR 

? QUOTIENT 

; REMAINDER 


16-Bit Comparison (CMP16) 


6E 


Compares two 16-bit operands obtained 
from the stack and sets the flags accordingly. 
All 16-bit numbers are stored in the usual 
6502 style with the less significant byte on top 
of the more significant byte. The comparison 
is performed by subtracting the top operand 
(or subtrahend) from the bottom operand (or 
minuend). The Zero flag always indicates 
whether the numbers are equal. If the num- 
bers are unsigned, the Carry flag indicates 
which one is larger (Carry = 0 if top operand 
or subtrahend is larger and 1 otherwise). If 
the numbers are signed, the Negative flag 
indicates which one is larger (Negative = 1 if 
top operand or subtrahend is larger and 0 
otherwise); two's complement overflow is 
considered and the Negative flag is inverted 
if it occurs. 

Procedure: The program first compares the 
less significant bytes of the subtrahend and 
the minuend. It then subtracts the more sig- 


Entry Conditions 


. Order in stack (starting from the top) 


Less significant byte of return address 
More significant byte of return address 


Less significant byte of subtrahend (top 
operand or WORD2) 

More significant byte of subtrahend 
(top operand or WORD2) 


Less significant byte of minuend (bottom 
operand or WORD1) 

More significant byte of minuend (bottom 
operand or WORD1) 


Registers Used: A, P 

Execution Time: Approximately 90 cycles 
Program Size: 65 bytes 

Data Memory Required: Six bytes anywhere in 


memory for the minuend or WORDI (2 bytes 
starting at address MINEND), the subtrahend or 
WORD? (2 bytes starting at address SUBTRA), 
and the return address (2 bytes starting at address 
RETADR). 


nificant byte of the subtrahend from the 
more significant byte of the minuend, thus 
setting the flags. If the less significant bytes 
of the operands are not equal, the program 
clears the Zero flag by logically ORing the 
accumulator with 01 If the subtraction 
results in two's complement overflow, the 
program complements the Negative flag by 
logically Exclusive ORing the accumulator 
with 80,, (10000000,); it also clears the Zero 
flag by the method described earlier. 


Exit Conditions 


Flags set as if subtrahend had been 
subtracted from minuend, with a correction if 
two's complement overflow occurred. 


Zero flag — 1 if subtrahend and minuend are 
equal, 0 if they are not equal. 


Carry flag = 0 if subtrahend is larger than 


minuend in the unsigned sense, 1 if it is less 
than or equal to the minuend. 


Negative flag — 1 if subtrahend is larger than 
minuend in the signed sense, O if it is less 
than or equal to the minuend. This flag is cor- 
rected if two's complement overflow occurs. 
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Examples 
1. Data:  Minuend (bottom operand) = 03Е16 3. Data: Міпиепа (bottom operand) = А450, 
Subtrahend (top operand) = 07Е4 6 Subtrahend (top operand) = 77Е1 6 
Result: Carry = 0, indicating subtrahend is Result: Carry = 1, indicating subtrahend is not 
larger in unsigned sense. larger in unsigned sense 
Zero = 0, indicating operands Zero = 0, indicating operands are 
not equal not equal 
Negative = 1, indicating subtrahend is Negative = 1, indicating subtrahend is 
larger in signed sense larger in signed sense 
2. Data: — Minuend (bottom operand) = C51A |, In Example 3, the bottom operand is a negative 
Subtrahend (top operand) = СЗТА two's complement number, whereas the top operand is 


Result: Carry = 1, indicating subtrahend is not a positive two's complement number. 


larger in unsigned sense 
Zero = 1, indicating operands are equal 
Negative = 0, indicating subtrahend is 
not larger in signed sense 


; Title l6 bit compare ; 

; Name: CMP16 ; 

; ; 
Purpose: Compare 2 16 bit signed or unsigned words and 


return the C,Z,N flags set or cleared. 


Entry: TOP OF STACK 
Low byte of return address, 
High byte of return address, 
Low byte of word 2 (subtrahend), 
High byte of word 2 (subtrahend), 
Low byte of word 1 (minuend), 
High byte of word 1 (minuend) 


Exit: Flags returned based on word 1 - word 2 
IF WORDl AND WORD2 ARE 2'S COMPLEMENT NUMBERS 
THEN 


IF WORD1 = WORD2 THEN 
Z=1,N=0 


Зе чо че че чо WO чо чо че ча че чо BVO че WE чо WE 
чо че we 99 чо me че че чо че че че WH че чо че VE 


we че че чо чо ча че WO чо BO че ча WO че WE WO че че WE чо 


СМР1 6: 


IF WORD] > WORD2 THEN 
2-0,М-0 

IF WORD1 < WORD2 THEN 
2=0,М=1 

ELSE 

IF WORD1 = WORD2 THEN 
2=1,С=1 

ТР WORD] > WORD2 THEN 
2-0,С-1 

IF WORD1 < WORD2 THEN 
Z=0,C=0 


Registers used: A,P 
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me ча чо че чо че ZO чо чо че че чо BVO че чо че че че WSO «чо 


Time: Approximately 90 cycles 
Size: Program 65 bytes 
Data 6 bytes 
? ЗАУЕ THE RETURN ADDRESS 
PLA 
STA RETADR 
PLA 
STA RETADR+1 
;GET SUBTRAHEND 
PLA 
STA SUBTRA 
PLA 
STA SUBTRA+1 
; GET MINUEND 
PLA 
STA MINEND 
PLA 
STA MINEND+1 
;RESTORE RETURN ADDRESS 
LDA RETADR+1 
PHA 
LDA RETADR 
PHA 
LDA MINEND 
CMP SUBTRA ;COMPARE LOW BYTES 
BEQ EQUAL ;BRANCH IF THEY ARE EQUAL 
;LOW BYTES ARE NOT EQUAL - COMPARE HIGH BYTES 
LDA MINEND+1 
SBC SUBTRA+1 ; COMPARE HIGH BYTES 
ORA #1 ;MAKE Z = 0, SINCE LOW BYTES ARE NOT EQUAL 
BVS OVF LOW ;MUST HANDLE OVERFLOW FOR SIGNED ARITHMATIC 
RTS ;EXIT 
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:LOW BYTES ARE EQUAL - COMPARE HIGH BYTES 
EQUAL: | 
ГОА MINEND+1 
SBC ЗОВТКА+1 ;UPPER BYTES 
BVS OVFLOW ;MUST HANDLE OVERFLOW FOR SIGNED ARITHMETIC 
RTS RETURN WITH FLAGS SET 
;OVERFLOW WITH SIGNED ARITHMETIC SO COMPLEMENT THE NEGATIVE FLAG 
; DO NOT CHANGE THE CARRY FLAG AND MAKE THE ZERO FLAG EQUAL 0. 
; COMPLEMENT NEGATIVE FLAG BY EXCLUSIVE-ORING 80H AND ACCUMULATOR. 
OVFLOW: 
EOR #80H ; COMPLEMENT NEGATIVE FLAG 
ORA $1 ? ТЕ OVERFLOW THEN THE WORDS ARE NOT EQUAL Z=0 
¿CARRY UNCHANGED 
RTS 
; DATA 
MINEND: .BLOCK 2 ;TEMPORARY FOR THE MINUEND 
SUBTRA: .BLOCK 2 ; TEMPORARY FOR THE SUBTRAHEND 
RETADR: .BLOCK 2 ;TEMPORARY FOR THE RETURN ADDRESS 
7 ; 
; H 
; SAMPLE EXECUTION 2 
Н Н 
Н ; 
SC0605: 
;СОМРАВЕ OPRND1 AND OPRND2 
LDA OPRND1+1 
PHA 
LDA OPRND1 d 
PHA 
LDA OPRND2+1 
PHA 
LDA OPRND2 
PHA 
JSR CMP16 
BRK ¿LOOK AT THE FLAGS 
; FOR 123 AND 1023 
: C = 0, Z = 0, N = 1 
JMP SC0605 
OPRND1 .WORD 123 ; MINUEND 
OPRND2 .WORD 1023 : SUBTRAHEND 


‚ END ; PROGRAM 


Multiple-Precision Binary Addition (MPBADD) 


Adds two multi-byte unsigned binary 
numbers. Both numbers are stored with their 
least significant bytes first (at the lowest 
address). The sum replaces one of the num- 
bers (the one with the starting address lower 
in the stack). The length of the numbers (in 
bytes) is 255 or less. 

Procedure: The program clears the Carry 
flag initially and adds the operands one byte 
at a time, starting with the least significant 
bytes. The final Carry flag reflects the addi- 


tion of the most significant bytes. The sum | 


replaces the operand with the starting address 
lower in the stack (array 1 in the listing). A 
length of 00 causes an immediate exit with no 
addition operations. 


Entry Conditions 


Order in stack (starting from the top) 


Less significant byte of return address 
More significant byte of return address 


Length of the operands in bytes 


Less significant byte of starting address of 
second operand (address containing the 
least significant byte of array 2) 

More significant byte of starting address of 
second operand (address containing the 
least significant byte of array 2) 


Less significant byte of starting address of 
first operand and result (address contain- 
ing the least significant byte of array 1) 

More significant byte of starting address of 
first operand and result (address contain- 
ing the least significant byte of array 1) 


6F 


Registers Used: All 


Execution Time: 23 cycles per byte plus 82 cycles 
overhead. For example, adding two 6-byte 
operands takes 23 X 6 + 82 or 220 cycles 


Program Size: 48 bytes 


Data Memory Required: Two bytes anywhere in 
RAM plus four bytes on page 0. The two bytes 
anywhere in RAM are temporary storage for the 
return address (starting at address RETADR). 


The four bytes on page 0 hold pointers to the two 
numbers (starting at addresses AYIPTR and 
AY2PTR, respectively). In the listing, AYIPTR 
is taken as address 00005 and AY2PTR as 
address 0002,6. 


Special Case: A length of zero causes an 
immediate exit with the sum equal to the bottom 
operand (i.e., array 1 is unchanged). The Carry 
flag is set to 1. 


Exit Conditions 


First operand (array 1) replaced by. first 
operand (array 1) plus second operand (array 
2). 
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Example 


Data: Length of operands (in bytes) — 6 
Top operand (array 2) = 19D028A193EA |, 
Bottom operand (array 1) = 293ЕАВЕ059С7,6 
Result: Bottom operand (array 1) = Bottom 
operand (array 1) + Top operand 
(array 2) = 430ED491EDB1,, 
Carry = 0 


Title Multiple-Precision Binary Addition 
Name: MPBADD 


чо че чо чо 


Purpose: Add 2 arrays of binary bytes 
Arrayl := Arrayl + Array2 


Entry: TOP OF STACK 

Low byte of return address, 
High byte of return address, 
Length of the arrays in bytes, 
Low byte of array 2 address, 
High byte of array 2 address, 
Low byte of array 1 address, 
High byte of array 1 address 


The arrays are unsigned binary numbers with a 
maximum length of 255 bytes, ARRAY|0] is the 
least significant byte, and ARRAY [LENGTH-1] 
the most significant byte. 

Exit: Arrayl := Arrayl + Array2 


Registers used: A11 


Time: 23 cycles per byte plus 82 cycles 
overhead. 

Size: Program 48 bytes 
Data 2 bytes plus 


4 bytes in page zero 


me ча чо че чо WE TO TO чо че чо VO чо VO VE че че чо чо чо чо че че че зо че че We че чо 


; EQUATES 

AYlPTR: .EQU орон ;PAGE ZERO FOR ARRAY 1 POINTER 
AY2PTR: .EQU 0D2H ; PAGE ZERO FOR ARRAY 2 POINTER 
MPBADD: 


:5АУЕ RETURN ADDRESS 


че че че ча 


чо че че че че че че чо чо чо чо че че чо че чо WS чо чо чо чо че WO че че че че We че чо 


LOOP: 


EXIT: 


; 
;DATA 
RETADR 


че че че че че 


5с0606: 


6F MULTIPLE-PRECISION BINARY ADDITION (MPBADD) 


PLA 

STA RETADR 

PLA 

STA RETADR+1 

;GET LENGTH OF ARRAYS 

PLA 

TAX 

;GET STARTING ADDRESS OF ARRAY 2 

PLA 

STA AY2PTR 

PLA 

STA AY2PTR+1 

;GET STARTING ADDRESS OF ARRAY 1 

PLA 

STA AYlPTR 

PLA | 

STA AYIPTR+1 

;RESTORE RETURN ADDRESS 

LDA RETADR+1 

PHA 

LDA RETADR 

PHA | 

;INITIALIZE 

LDY #0 

CPX #0 ;1S LENGTH OF ARRAYS = 0 ? 
BEQ EXIT ; YES, EXIT 

CLC ;CLEAR CARRY 

LDA (AYlPTR),Y ;GET NEXT BYTE 

ADC (AY2PTR),Y ;ADD BYTES 

STA (AYlPTR),Y ;STORE SUM 

INY ;INCREMENT ARRAY INDEX 
DEX ;DECREMENT COUNTER 

BNE LOOP ;CONTINUE UNTIL COUNTER = 0 
RTS 

.BLOCK 2 ;TEMPORARY FOR RETURN ADDRESS 


SAMPLE EXECUTION: 


255 


we чо че че чо 
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SZAYS: 


AY lADR: 
AY2ADR: 


АҮ1: 


АУ 2: 


LDA 
PHA 
LDA 
PHA 


LDA 
PHA 
LDA 


PHA 


LDA 
PHA 
JSR 
BRK 


JMP 
. EQU 


. WORD 
. WORD 


. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 


. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 


. END 


AYIADR+1 


AYlADR 


AY 2ADR+1 
AY 2ADR 


#SZAYS 


MPBADD 


5С0606 


; PROGRAM 


;PUSH АУ1 ADDRESS 


;PUSH AY2 ADDRESS 


;PUSH SIZE OF ARRAYS 
;MULTIPLE-PRECISION 
;RESULT OF 1234567H 


IN MEMORY 


=e чо чо че че “Г Фо 


;SIZE OF ARRAYS 


;ADDRESS OF ARRAY 1 
; ADDRESS OF ARRAY 2 


АҮ] 

AY1+1 
AY1+2 
AY1+3 
AY1+4 
AY1+5 
AY1+6 


BINARY ADDITION 


uw m u H H Ú + 


1234567H 
CEH 


= 2468ACEH 


Multiple-Precision Binary Subtraction 


(MPBSUB) 


Subtracts two multi-byte unsigned binary 
numbers. Both numbers are stored with their 
least significant byte at the lowest address. 
The starting address of the subtrahend (num- 
ber to be subtracted) is stored on top of the 
starting address of the minuend (number 
from which the subtrahend is subtracted). 
The difference replaces the minuend in 
memory. The length of the numbers (in 
bytes) is 255 or less. 

Procedure: The program sets the Carry flag 
(the inverted borrow) initially and subtracts 
the subtrahend from the minuend one byte at 
a time, starting with the least significant 
bytes. The final Carry flag reflects the 
subtraction of the most significant bytes. The 
difference replaces the minuend (the 
operand with the starting address lower in the 
stack, array 1 in the listing). A length of 00 


Entry Conditions 


Order in stack (starting from the top) 


Less significant byte of return address 
More significant byte of return address 


Length of the operands in bytes 


Less significant byte of starting address of 
subtrahend (address containing the least 
significant byte of array 2) 

More significant byte of starting address of 
subtrahend (address containing the least 
significant byte of array 2) 


Less significant byte of starting address of 
minuend (address containing the least sig- 
nificant byte of array 1) 

More significant byte of starting address of 
minuend (address containing the least sig- 
nificant byte of array 1) 


eG 


Registers Used: All 


Execution Time: 23 cycles per byte plus 82 cycles 
overhead. For example, subtracting two 6-byte 
operands takes 23 X 6 + 82 or 220 cycles. 


Program Size: 48 bytes 


Data Memory Required: Two bytes anywhere in 
RAM plus four bytes on page 0. The two bytes 
anywhere in RAM are temporary storage for the 


return address (starting at address RETADR). 
The four bytes on page 0 hold pointers to the two 
numbers (starting at addresses MINPTR and 
SUBPTR, respectively). In the listing, MINPTR 
is taken as address 00D0,, and SUBPTR as 
address 0002 6. 


Special Case: A length of zero causes an 
immediate exit with the minuend unchanged 
(that is, the difference is equal to the bottom 
operand). The Carry flag is set to 1. 


causes an immediate exit with no subtraction 
operations. 


Exit Conditions 


Minuend replaced by minuend minus 
subtrahend. 
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Ехатріе 


Data: Length of operands (in bytes) — 4 
Minuend = 2ЕЗВА7СЗ 6 
Subtrahend = 140Е3588 6 


Result: Difference = 1А7С720В с. 
This number replaces the original 
minuend in memory. The 
Carry flag is set to 1 in accordance 
with its usual role (in 6502 program- 
ming) as an inverted borrow. 


; Title Multiple-Precision Binary Subtraction 
H Name: MPBSUB 
; 
; 
Purpose: Subtract 2 arrays of binary bytes 


Minuend := Minuend - Subtrahend 


Entry: TOP OF STACK 
Low byte of return address, 
High byte of return address, 
Length of the arrays in bytes, 
Low byte of subtrahend address, 
High byte of subtrahend address, 
Low byte of minuend address, 
High byte of minuend address 


The arrays are unsigned binary fumbers with a 
maximum length of 255 bytes, ARRAY[0] is the 
least significant byte, and ARRAY [LENGTH-1] 
the most significant byte. 

Exit: Minuend :- Minuend - Subtrahend 


Registers used: All 


Time: 23 cycles per byte plus 82 cycles 
overhead. 

Size: | Program 48 bytes 
Data 2 bytes plus 


4 bytes in page zero 


че чо че TO че TO че че чо че че BO че че чо че че VE TO че че че =e че че че че че BS Фе 


7 EQUATES 
MINPTR: .EQU орон ? РАСЕ ZERO FOR MINUEND POINTER 
SUBPTR: .EQU 0D2H ;PAGE ZERO FOR SUBTRAHEND POINTER 


=e че че чо 


чо чо че TO TO чо че че че че че че че чо че VO че чо VO че чо зө =e че че че че че че чо 
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MPBSUB: 
¿SAVE RETURN ADDRESS 
PLA 
STA RETADR 
PLA 
STA RETADR+1 
‚СЕТ LENGTH OF ARRAYS 
PLA 
TAX 
¿GET STARTING ADDRESS OF SUBTRAHEND 
PLA 
STA SUBPTR 
PLA 
STA SUBPTR+1 
¿GET STARTING ADDRESS OF MINUEND 
PLA 
STA MINPTR 
PLA 
STA МІМРТЕ+1 
¿RESTORE RETURN ADDRESS 
LDA RETADR+1 
PHA 
LDA RETADR 
PHA 
s INITIALIZE 
LDY #0 
CPX #0 ¿IS LENGTH OF ARRAYS = 0 ? 
BEQ EXIT ;YES, EXIT 
SEC ¿SET CARRY 
LOOP: 
LDA (MINPTR),Y ‚СЕТ NEXT BYTE 
SBC (SUBPTR),Y ;SUBTRACT BYTES 
STA (MINPTR),Y ;STORE DIFFERENCE 
INY ;INCREMENT ARRAY INDEX 
DEX :;DECREMENT COUNTER 
BNE LOOP ‚СОМТТМОЕ UNTIL COUNTER = 0 
EXIT: 
RTS 
; 
; DATA 
RETADR .BLOCK 2 ¿TEMPORARY FOR RETURN ADDRESS 


SAMPLE EXECUTION: 


“с wo че чо че 
me че wo чо че 
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SC0607: 


SZAYS: 


AY IADR: 
AY2ADR: 


AY1: 


AY2: 


LDA 
PHA 
LDA 
PHA 


LDA 
PHA 
LDA 
PHA 


LDA 
PHA 
JSR 
BRK 


JMP 
. EQU 


. WORD 
. WORD 


. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 


. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 


„ЕКО 


AYIADR+1 


AYlADR 


;PUSH АҮ] ADDRESS 


AY 2ADR+1 
АҮ 2ADR 


;PUSH AY2 ADDRESS 


#SZAYS 


;PUSH SIZE OF ARRAYS 
;MULTIPLE-PRECISION 
;RESULT OF 7654321H 
IN MEMORY АҮ1 


MPBSUB 


чөе wo че че ча че чо 


SC0607 


7 ;SIZE OF ARRAYS 


: PROGRAM 


AY1+1 
AY1+2 
AY1+3 
AY1+4 
AY1+5 
AY1+6 


BINARY SUBTRACTION 


;ADDRESS OF ARRAY 1 (MINUEND) 
;ADDRESS OF ARRAY 2 (SUBTRAHEND) 


1234567H = 641FDBAH 
OBAH 

OFDH 

41H 

06H 

0 0H 

00H 

00H 


Multiple- Precision Binary Multiplication 


(MPBMUL) 


Miultiplies two multi-byte unsigned bi- 
nary numbers. Both numbers are stored with 
their least significant byte at the lowest 
address. The product replaces one of the 
numbers (the one with the starting address 
lower in the stack). The length of the num- 
bers (in bytes) is 255 or less. Only the least 
significant bytes of the product are returned 
to retain compatibility with other multiple- 
precision binary operations. 

Procedure: The program uses an ordinary 
add-and-shift algorithm, adding the multipli- 
cand (array 2) to the partial product each 


Registers Used: All 


Execution Time: Depends on the length of the 
operands and on the number of 1 bits in the 
multiplier (requiring actual additions). If the 
average number of 1 bits in the multiplier is four 
per byte, the execution time is approximately 


316 x LENGTH? + 223 x LENGTH + 150 


cycles where LENGTH is the number of bytes in 
the operands. If, for example, LENGTH - 4, the 
approximate execution time is 


316 x 4? + 223 X 4+ 150 = 316 x 16 + 892 
+ 150 = 5056 + 1042 = 6,098 cycles. 


Program Size: 145 bytes 


Data Memory Required: 260 bytes anywhere in 
RAM plus four bytes on page 0. The 260 bytes 


6H 


time it finds a 1 bit in the multiplier (array 1). 
The partial product and the multiplier are 
shifted through the bit length plus 1 with the 
extra loop being necessary to move the final 
carry into the product. The program main- 
tains a full double-length unsigned partial 
product in memory locations starting at 
HIPROD (more significant bytes) and in 
array 1 (less significant bytes). The less sig- 
nificant bytes of the product replace the 
multiplier as the multiplier is shifted and 
examined for 1 bits. A length of 00 causes an 
exit with no multiplication. 


anywhere in RAM are temporary storage for the 
more significant bytes of the product (255 bytes 
starting at address HIPROD), the return address 
(two bytes starting at address RETADR), the 
loop counter (two bytes starting at address 
COUNT), and the length of the operands in bytes 
(one byte at address LENGTH). The four bytes 


‘on page 0 hold pointers to the two operands (the 


pointers start at addresses AYIPTR and 
AY2PTR, respectively). In the listing, AYIPTR 
is taken as address 0000 and AY2PTR as 
address 0002 6. 


Special Case: A length of zero causes ап 
immediate exit with the product equal to the orig- 
inal multiplier (that is, array 1 is unchanged) and 
the more significant bytes of the product (starting 
at address HIPROD) undefined. 
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Entry Conditions 


Order in stack (starting from the top ) 


Less significant byte of return address 
More significant byte of return address 


Length of the operands in bytes 


Less significant byte of starting address of 
multiplicand (address containing the least 
significant byte of array 2) 

More significant byte of starting address of 
multiplicand (address containing the least 
significant byte of array 2) 


Less significant byte of starting address of 
multiplier (address containing the least sig- 
nificant byte of array 1) 

More significant byte of starting address of 
multiplier (address containing the least sig- 
nificant byte of array 1) 


Example 


Data: Length of operands (in bytes) — 04 


Top operand (array 2 or multiplicand) 
= 000501Е7,6 = 381,431 49 


Bottom operand (array 1 or multiplier) 
= 00000ABl,6 = 2,737 |0 


Bottom operand (array 1) = Bottom 
operand (array 1)* Top operand 
(array 2) = 3Е3901С7 в 

= 1,043,976,647 19 


Result: 


Exit Conditions 


Multiplier (array 1) replaced by multiplier 
(array 1) times multiplicand (array 2). 


Note that MPBMUL returns only the less 
significant bytes (that is, the number of bytes 
in the multiplicand and multiplier) of the 
product to maintain compatibility with other 
multiple-precision binary arithmetic opera- 
tions. The more significant bytes of the pro- 
duct are available starting with their least sig- 
nificant byte at address HIPROD. The user 
may need to check those bytes for a possible 
overflow or extend the operands with addi- 
tional zeros. 
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; Title Multiple-Precision Binary Multiplication ; 

; Name: MPBMUL ? 

H ; 

Н ; 
Purpose: Multiply 2 arrays of binary bytes 


Arrayl := Arrayl * Array2 


Entry: TOP OF STACK 
Low byte of return address, 
High byte of return address, 
Length of the arrays in bytes, 
Low byte of array 2 (multiplicand) address, 
High byte of array 2 (multiplicand) address, 
Low byte of array 1 (multiplier) address, 
High byte of array 1 (multiplier) address 


The arrays are unsigned binary numbers with a 
maximum length of 255 bytes, ARRAY[0] is the 
least significant byte, and ARRAY [LENGTH-1] 
the most significant byte. 


Exit: Arrayl := Arrayl * Array2 
Registers used: A11 
Time: Assuming the average number of 1 bits in array 1 
is 4 * length then the time is approximately 
(316 * length^2) * (223 * length) * 150 cycles 
Size: Program 145 bytes 


Data 260 bytes plus 
4 bytes in page zero 


чо че чо TO че чо че зо че WE че чо че ча че WO We че WE чо WE че че WH WH чо че WO че че WE 


=e че че “зе чо че че че че VO ча че че We че WH We We WS ча WS WE VE VO “Г TWO VO че че о WES 


; EQUATES 
AYlPTR: .EQU ODOH ;PAGE ZERO FOR ARRAY 1 POINTER 
AY2PTR: .EQU 0D2H ; PAGE ZERO FOR ARRAY 2 POINTER 
MPBMUL: 

;SAVE RETURN ADDRESS 

PLA 

STA RETADR 

PLA 

STA RETADR+1 ;SAVE RETURN ADDRESS 

;GET LENGTH OF ARRAYS 

PLA 

STA LENGTH 


? СЕТ ADDRESS OF ARRAY 2 AND SUBTRACT 1 SO THAT THE ARRAYS MAY 
; ВЕ INDEXED FROM 1 TO LENGTH RATHER THAN 0 TO LENGTH-1 

PLA 

SEC 
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SBC #1 :5ОВТВАСТ 1 FROM LOW BYTE 
STA AY2PTR 

PLA 

SBC #0 ; SUBTRACT BORROW IF ANY 
STA AY2PTR+1 

¿GET ADDRESS OF ARRAY 1 AND SUBTRACT 1 

PLA 

SEC 

SBC #1 :SUBTRACT 1 FROM LOW BYTE 
STA AYlPTR 

PLA 

SBC #0 ; SUBTRACT BORROW IF ANY 
STA AY1PTR+1 

¿RESTORE RETURN ADDRESS 

LDA RETADR-*1 

PHA 

LDA RETADR 

PHA 

:ЕХІТ IF LENGTH IS ZERO 

LDA LENGTH ¿IS LENGTH OF ARRAYS = 0 ? 
BEQ EXIT ;YES, EXIT 


;SET COUNT TO NUMBER OF BITS IN ARRAY PLUS 1 
; COUNT := (LENGTH * 8) + 1 


STA COUNT ;INITIALIZE COUNTER TO LENGTH 
LDA #0 
ASL COUNT sCOUNT * 2 
ROL A sA WILL BE UPPER BYTE 
ASL COUNT ;COUNT * 4 
ROL A 
ASL COUNT ;COUNT * 8 
ROL A 
STA COUNT+1 ;STORE UPPER BYTE OF COUNT 
INC COUNT s INCREMENT LOW BYTE OF COUNT 
BNE ZEROPD 
INC COUNT +1 ; INCREMENT HIGH BYTE IF LOW BYTE BECOMES, 0 
¿ZERO HIGH PRODUCT ARRAY 
ZEROPD: 
LDX LENGTH 
LDA #0 
ZEROLP: 
STA HIPROD-1,X ;THE MINUS 1 FOR INDEXING FROM 1 TO LENGTH 
DEX 
BNE ZEROLP 
¿MULTIPLY USING THE SHIFT AND ADD ALGORITHM 
; ARRAY 1 WILL BE THE MULTIPLIER AND ARRAY 2 THE MULTIPLICAND 
CLC ;CLEAR CARRY FIRST TIME THROUGH 
LOOP: 


¿SHIFT CARRY INTO THE UPPER PRODUCT ARRAY AND THE LEAST SIGNIFICANT 
; BIT OF THE UPPER PRODUCT ARRAY TO CARRY 
LDX LENGTH 


SRPLP: 


SRAlLP: 


ADDLP: 


DECCNT: 


EXIT: 


, 

; DATA 
RETADR: 
COUNT: 
LENGTH: 
HIPROD: 


че чо 
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ROR HIPROD-1,X ;MINUS 1 FOR INDEXING FROM 1 TO LENGTH 
DEX 
BNE SRPLP ;CONTINUE UNTIL INDEX = 0 


;SHIFT CARRY WHICH IS THE NEXT BIT OF LOWER PRODUCT INTO THE MOST 
> SIGNIFICANT BIT OF ARRAY 1. THIS IS THE NEXT BIT OF THE PRODUCT. 
; THIS ALSO SHIFTS THE NEXT BIT OF MULTIPLIER TO CARRY. 

LDY LENGTH 


LDA (AYlPTR),Y 

ROR A ;ROTATE NEXT BYTE 

STA (AYlPTR),Y 

DEY 

BNE SRAlLP ;CONTINUE UNTIL INDEX = 0 


;IF NEXT BIT OF THE MULTIPLIER IS 1 THEN 
; ADD ARRAY 2 AND UPPER ARRAY OF PRODUCT 


BCC DECCNT ;BRANCH IF NEXT BIT IS ZERO 
;ADD ARRAY 2 AND HIPROD 

LDY 1 

LDX LENGTH 

CLC 

LDA (AY2PTR),Y 

ADC HIPROD-1,Y ;ADD BYTES 

STA HIPROD-1,Y 

INY ;INCREMENT INDEX 

DEX ;DECREMENT COUNTER 

BNE ADDLP ;CONTINUE UNTIL COUNT = 0 


;DECREMENT BIT COUNTER AND EXIT IF DONE 
;DOES NOT CHANGE CARRY ! 


DEC COUNT ;DECREMENT LOW BYTE OF COUNT 
BNE LOOP ;BRANCH IF IT IS NOT ZERO 

LDX COUNT+1 ;GET HIGH BYTE 

BEQ EXIT ;EXIT IF COUNT IS ZERO 

DEX ;ELSE DECREMENT HIGH BYTE OF COUNT 
STX COUNT+1 

JMP LOOP 

RTS 

.BLOCK 2 ; TEMPORARY FOR RETURN ADDRESS 
.BLOCK 2 ; TEMPORARY FOR LOOP COUNTER 
.BLOCK 1 ;LENGTH OF ARRAYS . 

.BLOCK 255 ;HIGH PRODUCT BUFFER 


=e чо 
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SAMPLE EXECUTION: 


“с we чо 


5С0608: 

LDA AYlADR-*1 
PHA 

LDA AYlADR 
PHA 

LDA AY 2ADR+1 
PHA 

LDA AY 2ADR 
PHA 

LDA #SZAYS 
PHA 

JSR MPBMUL 
BRK 

JMP 5С0608 


52АҮ5:  .EQU 7 


AYlADR: .WORD АУ] 
AY2ADR: .WORD AY2 


АУ1: 
.ВҮТЕ 045Н 
. BYTE 023H 
. BYTE 001H 
. BYTE 0 
. BYTE 0 
. BYTE 0 
. BYTE 0 
AY2: 


. BYTE 034H 
. BYTE 012H 
. BYTE 0 
. BYTE 0 
. BYTE 0 
. BYTE 0 
. BYTE 0 


. END ; PROGRAM 


;PUSH AYl ADDRESS 


;PUSH AY2 ADDRESS 


;PUSH SIZE OF ARRAYS 
;MULTIPLE-PRECISION 
;RESULT OF 12345H * 
IN MEMORY АУ1 


-. чо че че ча че чо 


АҮ1+1 
АҮ1+2 
АҮ1+3 
АҮ1+4 
АҮ1+5 
АҮ1+6 


;SIZE OF ARRAYS 


;ADDRESS OF ARRAY 1 
;ADDRESS OF ARRAY 2 


BINARY MULTIPLY 


= 14B60404H 


“с wo чо 


Multiple-Precision Binary Division (MPBDIV) 6l 


Divides two multi-byte unsigned binary 
numbers. Both numbers are stored with their 
least significant byte at the lowest address. 
The quotient replaces the dividend (the 
operand with the starting address lower in the 
stack). The length of the numbers (in bytes) 
is 255 or less. The remainder is not returned, 
but its starting address (least significant byte) 
is available in memory locations HDEPTR 
and HDEPTR +1. The Carry flag is cleared if 
no errors occur; if a divide by zero is 
attempted, the Carry flag is set to 1, the divi- 
dend is left unchanged, and the remainder is 
set to zero. 


Registers Used: All 


Execution Time: Depends on the length of the 
operands and on the number of 1 bits in the quo- 
tient (requiring a buffer switch). If the average 
number of 1 bits in the quotient is four per byte, 
the execution time is approximately 


480 x LENGTH? + 438 x LENGTH - 208 


cycles where LENGTH is the number of bytes in 
the operands. If, for example, LENGTH - 4 (32- 
bit division), the approximate execution time is 


480 x 42 + 438 x 4 + 208 = 
480 x 16 + 1752 + 208 = 
7680 + 1960 = 9,640 cycles 


Program Size: 206 bytes 


Data Memory Required: 519 bytes anywhere in 
RAM plus eight bytes on page 0. The 519 bytes 
anywhere in RAM are temporary storage for the 
high dividend (255 bytes starting at address 
HIDEL), the result of the trial subtraction (255 
bytes starting at address HIDE2), the return 
address (two bytes starting at address 


Procedure: The program performs division 
by the usual shift-and-subtract algorithm, 
shifting quotient and dividend and placing a 1 
bit in the quotient each time a trial subtrac- 
tion is successful. An extra buffer is used to 
hold the result of the trial subtraction and 
that buffer is simply switched with the buffer 
holding the dividend if the trial subtraction is 
successful. The program exits immediately, 
setting the Carry flag, if it finds the divisor to 
be zero. The Carry flag is cleared otherwise. 


RETADR), the loop counter (two bytes starting 
at address COUNT), the length of the operands 
(one byte at address LENGTH), and the 
addresses of the high dividend buffers (two bytes 
starting at address AHIDE1 and two bytes start- 
ing at address AHIDE2). The eight bytes on page 
0 hold pointers to the two operands and to the 
two temporary buffers for the high dividend. The 
pointers start at addresses AYIPTR (0000, in 
the listing), AY2PTR (0002,6 in the listing), 
HDEPTR (0004,6 in the listing), and ODEPTR 
(0006,6 in the listing). HDEPTR contains the 
address of the least significant byte of the 
remainder at the conclusion of the program. 


Special Cases: 

l. A length of zero causes an immediate exit 
with the Carry flag cleared, the quotient equal to 
the original dividend, and the remainder 
undefined. 


2. A divisor of zero causes an exit with the 
Carry flag set to 1, the quotient equal to the origi- 
nal dividend, and the remainder equal to zero. 
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Entry Conditions 


Order in stack (starting from the top) 


Less significant byte of return address 
More significant byte of return address 


Length of the operands in bytes 


Less significant byte of starting address of 
divisor (address containing the least 
significant byte of array 2) 

More significant byte of starting address of 
divisor (address containing the least 
significant byte of array 2) 


Less significant byte of starting address of 
dividend (address containing the least 
significant byte of array 1) 

More significant byte of starting address of 
dividend (address containing the least 
significant byte of array 1) 


Example 


Data: Length of operands (in bytes) — 03 


Exit Conditions 


Dividend (array 1) replaced by dividend 
. (array 1) divided by divisor (array 2). 

If the divisor is non-zero, Carry = 0 and the 
result is normal. 

If the divisor is zero, Carry = 1, the dividend 
is unchanged and the remainder is zero. 

The remainder is available with its least 
significant byte stored at the address in 
HDEPTR and HDEPTR+1 


Top operand (array 2 or divisor) == 000Е45 16 = 3,9091, 
Bottom operand (array 1 or dividend) = 35А2Е7 в = 3,515,127, 


Result: Bottom operand (array 1) = Bottom 


operand (array 1) / Top operand (array 2) 


== 000383 6 = 89910 
Remainder (starting at address in 


HDEPTR апа HDEPTR +1) = 0003A8,, 


= 9360 


Carry flag is 0 to indicate по 
divide by zero error 


оо чо че чо 


че чо че чо чо TO чо чо зо TO TE чо We чо 99 чо че че че TO чо чо че чо че TE че че GO че чо чо чо че чо че че че 


; EQUATES 


AY1PTR: 
AY2PTR: 
HDEPTR: 
ODEPTR: 
MPBDIV: 


Title 
Name: 


Purpose: 


Entry: 


Exit: 


Registers used: 


Time: 


Size: 


. EQU 
. EQU 
. EQU 
. EQU 


орон 
0D2H 
0D4H 
0D6H 
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Multiple-Precision Binary Division 
MPBDIV 


чо че че чо. 


Divide 2 arrays of binary bytes 
Arrayl := Arrayl / Array2 


TOP OF STACK 
Low byte of return address, 
High byte of return address, 
Length of the arrays in bytes, 
Low byte of array 2 (divisor) address, 
High byte of array 2 (divisor) address, 
Low byte of array 1 (dividend) address, 
High byte of array 1 (dividend) address 


The arrays are unsigned binary numbers with a 
maximum length of 255 bytes, ARRAY[0] is the 
least significant byte, and ARRAY [LENGTH-1] 
the most significant byte. 


Arrayl := Arrayl / Array2 
If no errors then 
carry := 0 
ELSE 
divide by 0 error 
carry := 1 | 
quotient := array 1 unchanged 
remainder := 0 


All 


Assuming there are length/2 1 bits in the 
quotient then the time is approximately 
(480 % length^2) + (438 * length) + 208 cycles 


Program 206 bytes 
Data 519 bytes plus 
8 bytes in page zero 


чо чо чо чо чо чо чо чо чо чо чо чо чо че чо чо че ча че че чо че чо чо WH че ча че че че чо че чо BO че NO че чо 


? РАСЕ ZERO FOR ARRAY 1 POINTER 

; PAGE ZERO FOR ARRAY 2 POINTER 

;PAGE ZERO FOR HIGH DIVIDEND POINTER 

; PAGE ZERO FOR OTHER HIGH DIVIDEND POINTER 


;SAVE RETURN ADDRESS 


PLA 
STA 
PLA 
STA 


RETADR 
RETADR+1 
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;GET LENGTH OF ARRAYS 


PLA 

STA LENGTH 

;GET STARTING ADDRESS OF DIVISOR 
PLA 

STA AY2PTR 

PLA 

STA AY2PTR+1 

;GET STARTING ADDRESS OF DIVIDEND 
PLA 

STA AY1PTR 

PLA 

STA AY1PTR+1 

;RESTORE RETURN ADDRESS 

LDA RETADR+1 

PHA 

LDA RETADR 

PHA 

; INITIALIZE 

LDA LENGTH ;IS LENGTH OF ARRAYS = 0 ? 
BNE INIT 

JMP OKEXIT :ҮЕ5, EXIT 


;SET COUNT TO NUMBER OF BITS IN THE ARRAYS 
; COUNT := (LENGTH * 8) + 1 


INIT: 
STA COUNT ;INITIALIZE COUNTER TO LENGTH 
LDA £0 
ASL COUNT ;COUNT * 2 
ROL A ;A WILL BE UPPER BYTE 
ASL COUNT ;COUNT * 4 
ROL A 
ASL COUNT ;COUNT * 8 
ROL A 
STA COUNT+1 ;STORE UPPER BYTE OF COUNT 
INC COUNT ;INCREMENT COUNT 
BNE ZEROPD 
INC COUNT+1 
2ЕКО BOTH HIGH DIVIDEND ARRAYS 
ZEROPD: 
LDX LENGTH 
LDA #0 
ZEROLP: 
STA HIDE1-1,X >THE MINUS 1 FOR INDEXING FROM 1 TO LENGTH 
STA HIDE2-1,X 
DEX 
BNE Z EROLP 


¿SET HIGH DIVIDEND POINTER TO HIDEI 
LDA АНТОЕ1 
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STA HDEPTR 
LDA AHIDE1+1 
STA HDEPTR41 
;SET OTHER HIGH DIVIDEND POINTER TO HIDE2 
LDA AHIDE2 
STA ODEPTR 
LDA AHIDE2+1 
STA ODEPTR+1 
:CHECK IF DIVISOR IS ZERO 
LDX LENGTH ;:LOGICALLY OR ALL BYTES OF DIVISOR 
LDY $0 
TYA 
CHKOLP: . 
ORA (AY2PTR),Y 
INY ; ТНСВЕМЕНТ INDEX 
ОЕХ 
BNE CHKOLP sCONTINUE UNTIL REGISTER X = 0 
CMP #0 
BNE DIV. ¿BRANCH IF DIVISOR IS NOT ZERO 
JMP EREXIT : ELSE EXIT INDICATING ERROR 
sDIVIDE USING THE TRIAL SUBTRACTION ALGORITHM 
DIV: 
CLC ¿CLEAR CARRY FOR THE FIRST TIME THROUGH 
LOOP: | 
¿SHIFT CARRY INTO LOWER DIVIDEND ARRAY AS THE NEXT BIT OF QUOTIENT 
; AND THE MOST SIGNIFICANT BIT OF THE LOWER DIVIDEND TO CARRY. 
LDX LENGTH 
LDY #0 
SLLP1: 
LDA (AYlPTR),Y 
ROL A ¿ROTATE NEXT BYTE 
STA (AYlPTR),Y 
INY ;INCREMENT THE INDEX 
DEX 
BNE SLLP1 sCONTINUE UNTIL REGISTER X = 0 
:DECREMENT BIT COUNTER AND EXIT IF DONE 
¿CARRY IS NOT CHANGED !! 
DECCNT: I 
DEC COUNT ;DECREMENT LOW BYTE OF COUNT 
BNE SLUPR :BRANCH IF IT IS NOT ZERO 
LDX COUNT 41 ;GET HIGH BYTE 
BEQ OKEXIT :EXIT IF COUNT IS ZERO 
DEX ;ELSE DECREMENT HIGH BYTE OF COUNT 
STX COUNT+1 
a ;SHIFT THE CARRY INTO THE LEAST SIGNIFICANT BIT OF THE UPPER DIVIDEND 
LDX LENGTH 
LDY #0 
SLLP2: 
LDA (HDEPTR),Y 


ROL A 
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SUBLP: 


OKEXIT: 


EREXIT: 


EXIT: 


a 

: DATA 
RETADR: 
` COUNT: 
LENGTH: 


STA (HDEPTR) ,Y 

INY ;INCREMENT INDEX 

DEX 

BNE SLLP2 ;CONTINUE UNTIL REGISTER X = 0 


;ЗОВТВАСТ ARRAY 2 FROM HIGH DIVIDEND PLACING THE DIFFERENCE INTO 
; OTHER HIGH DIVIDEND ARRAY | 


LDY $0 

LDX LENGTH 

SEC 

LDA (HDEPTR) ,Y 

SBC (AY2PTR) ,Y ;SUBTRACT THE BYTES 

STA (ODEPTR) ,Y ;STORE THE DIFFERENCE 

INY ; INCREMENT INDEX 

DEX 

BNE SUBLP ;CONTINUE UNTIL REGISTER X = 0 

;IF NO CARRY IS GENERATED FROM THE SUBTRACTION THEN THE HIGH DIVIDEND 
; IS LESS THAN ARRAY 2 SO THE NEXT BIT OF THE QUOTIENT IS 0. 
; IF THE CARRY IS SET THEN THE NEXT BIT OF THE QUOTIENT IS 1 
; AND WE REPLACE DIVIDEND WITH REMAINDER BY SWITCHING POINTERS. 
BCC LOOP ;WAS TRIAL SUBTRACTION SUCCESSFUL ? 
LDY HDEPTR ;YES, EXCHANGE POINTERS THUS REPLACING 
LDX HDEPTR+1 ; DIVIDEND WITH REMAINDER 

LDA ODEPTR 

STA HDEPTR 

LDA ODEPTR+1 

STA HDEPTR+1 

STY ODEPTR 

STX ODEPTR+1 

;CONTINUE WITH NEXT BIT A 1 (CARRY = 1) 

JMP LOOP 

;CLEAR CARRY TO INDICATE NO ERRORS 

CLC 

BCC EXIT 

;SET CARRY TO INDICATE A DIVIDE BY ZERO ERROR 

SEC 

;ARRAY 1 IS THE QUOTIENT 

;HDEPTR CONTAINS THE ADDRESS OF THE REMAINDER 

RTS 

.BLOCK 2 ;TEMPORARY FOR RETURN ADDRESS 

.BLOCK 2 ;TEMPORARY FOR LOOP COUNTER 

.BLOCK 1 ;LENGTH OF ARRAYS 


AHIDEl1: 
AHIDE2: 
НІрЕ1: 
HIDE2: 


че че че че WE 


SC0609: 


SZAYS: 


AYlADR: 
AY2ADR: 


AY1: 


AY2: 


. WORD 
. WORD 
. BLOCK 
. BLOCK 


HIDE1 
HIDE2 
255 
255 


SAMPLE EXECUTION: 


LDA 
PHA 
LDA 
PHA 


LDA 
PHA 
LDA 
PHA 


LDA 
PHA 
JSR 
BRK 


JMP 
° EQU 


. WORD 
. WORD 


. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 


. BYTE 
. BYTE 
. BYTE 
. BYTE 


АУТАОК+1 


AY1ADR 


AY 2ADR+1 


AY 2ADR 


#SZAYS 
MPBDIV 


SC0609 
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;ADDRESS OF HIGH DIVIDEND BUFFER 1 
;ADDRESS OF HIGH DIVIDEND BUFFER 2 
;HIGH DIVIDEND BUFFER 1 
;HIGH DIVIDEND BUFFER 2 


;PUSH AYl ADDRESS 


;PUSH AY2 ADDRESS 


;PUSH SIZE OF ARRAYS 
;MULTIPLE-PRECISION BINARY DIVIDE 
;RESULT OF 14B60404H / 1234H = 12345H 


; IN MEMORY АУ1 = 45H 

; AY1+1 = 23H 

; AY1+2 = 01H 

; AY1+3 = QOH 

; AY1+4 = 00H 

; AY1+5 = 00H 

; AY1+6 = QOH 
;SIZE OF ARRAYS 

;ADDRESS OF ARRAY 1 (DIVIDEND) 
;ADDRESS OF ARRAY 2 (DIVISOR) 
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274 лнтнмЕтіс 


.BYTE 0 
.BYTE O 
.BYTE 0 


. END ; PROGRAM 


Multiple-Precision Binary Comparison 


(MPBCMP) 


Compares two multi-byte unsigned binary 
numbers and sets the Carry and Zero flags 
appropriately. The Zero flag is set to 1 if the 
operands are equal and to 0 if they are not 
equal. The Carry flag is set to O if the operand 
with the address higher in the stack (the 
subtrahend) is larger than the other operand 
(the minuend); the Carry flag is set to 1 
otherwise. Thus, the flags are set as if the 
subtrahend had been subtracted from the 
minuend. 

Procedure: The program compares the 
operands one byte at a time, starting with the 
most significant bytes and continuing until it 
finds corresponding bytes that are not equal. 
If all the bytes are equal, it exits with the Zero 
flag set to 1. Note that the comparison works 
through the operands starting with the most 
significant bytes, whereas the subtraction 
(Subroutine 6G) starts with the least signifi- 
cant bytes. 


6J 


Registers Used: All 


Execution Time: 17 cycles per byte that must be 
compared plus 90 cycles overhead. That is, the 
program continues until it finds corresponding 
bytes that are not equal; each pair of bytes it must 
examine requires 17 cycles. 


Examples: 
1. Comparing two 6-byte numbers that are equal 
17 x 6 + 90 = 192 cycles 


2. Comparing two 8-byte numbers that differ in 
the next to most significant bytes 


17 x 2 + 90 = 124 cycles 
Program Size: 54 bytes 


Data Memory Required: Two bytes anywhere in 
RAM and four bytes on page 0. The two bytes 
anywhere in RAM are temporary storage for the 
return address (starting at address RETADR). 
The four bytes on page 0 hold pointers to the two 
numbers; the pointers start at addresses 
MINPTR (00D0,, in the listing) and SUBPTR 
(00026 in the listing). 


Special Case: A length of zero causes an 
immediate exit with the Carry flag and the Zero 
flag both set to 1. 


Entry Conditions 

Order in stack (starting from top) 

Less significant byte of return address 
More significant byte of return address 


Length of the operands in bytes 


Less significant byte of starting address of 
subtrahend (address containing the least 
significant byte) 

More significant byte of starting address of 
subtrahend (address containing the least 
significant byte) 


Less significant byte of starting address of 
minuend (address containing the least sig- 


Exit Conditions 


Flags set as if subtrahend had been 
subtracted from minuend 


Zero flag — 1 if subtrahend and minuend are 
equal, 0 if they are not equal 


Carry flag = 0 if subtrahend is larger than 
minuend in the unsigned sense, 1 if it is less 
than or equal to the minuend. 


275 


276 антнметс 


nificant byte) 

More significant byte of starting address of 
minuend (address containing the least sig- 
nificant byte) 


Examples 
1. Data: Length of operands (in bytes) — 6 3. Data: Length of operands (in bytes) = 6 
Top operand (subtrahend) — Top operand (subtrahend) — 
19D028A193EA |, 190028А193ЕА |; 
Bottom operand (minuend) = Bottom operand (minuend) — 
4Е678С15А266 0Е37Е599107С 6 
Result: Zero flag = 0 (operands are Result: Zero flag — 0 (operands are not equal) 
not equal) Carry flag = 0 (subtrahend is larger 
Carry flag = 1 (subtrahend is than minuend) 
not larger than minuend) 
2. Data: Length of operands (in bytes) 
= 6 
Top operand (subtrahend) = 
19D028A193EA |, 
Bottom operand (minuend) = 
19D028A193EA |, 
Result: Zero flag = 1 (operands are equal) 
Carry flag = 1 (subtrahend is 
not larger than minuend) 
; Title Multiple-Precision Binary Comparision - 
- Name: MPBCMP ; 
е ? 
Н H 
Purpose: Compare 2 arrays of binary bytes and return 


the CARRY and ZERO flags set or cleared 


Entry: TOP OF STACK 
Low byte of return address, 
High byte of return address, 
Length of the arrays in bytes, 
Low byte of array 2 (subtrahend) address, 
High byte of array 2 (subtrahend) address, 
Low byte of array 1 (minuend) address, 
High byte of array 1 (minuend) address 


чо че че TO че че WO че TO BO чо че WE 
чо че Ге че BO че че че че WH WH че че 


Exit: 


Time: 


Size: 


=e че чо TO чо чо TO че TO ча TO чо VO WO WMO WH We We чо TH VE чо 


; EQUATES 
MINPTR: .EQU 
SUBPTR: .EQU 


MPBCMP: 


Registers used: 


орон 
002Н 


6.) MULTIPLE-PRECISION BINARY COMPARISON (MPBCMP) 


The arrays are unsigned binary numbers with a 


maximum length of 255 bytes, ARRAY[0] is the 
least significant byte, and ARRAY [LENGTH-1] 
the most significant byte. 


IF ARRAY 1 = ARRAY 2 THEN 
С=1,2=1 

ТР ARRAY 1 > ARRAY 2 THEN 
С=1,2=0 

IF ARRAY 1 < ARRAY 2 THEN 
С=0,2=0 

All 


17 cycles per byte that must be examined 
plus 90 cycles overhead. 


Program 54 bytes 
Data 2 bytes plus 
4 bytes in page zero 


;PAGE ZERO FOR ARRAY 1 POINTER 
; PAGE ZERO FOR ARRAY 2 POINTER 


;SAVE RETURN ADDRESS 


PLA 
STA 
PLA 
STA 


RETADR 


RETADR+1 


;SAVE RETURN ADDRESS 


;GET LENGTH OF ARRAYS 


PLA 
TAY 


;GET ADDRESS OF SUBTRAHEND AND SUBTRACT 1 TO SIMPLIFY INDEXING 


PLA 


#1 
SUBPTR 


#0 
SUBPTR+1 


;SUBTRACT 1 FROM LOW BYTE 


;SUBTRACT ANY BORROW FROM HIGH BYTE 


;GET ADDRESS OF MINUEND AND ALSO SUBTRACT 1 


PLA 
SEC 


#1 
MINPTR 


#0 
MINPTR+1 


;SUBTRACT 1 FROM LOW BYTE 


;SUBTRACT ANY BORROW FROM HIGH BYTE 


277 


чо чо чо TO о че ча WH че чо чо че че BVO че чо че че We ч9 че WE 


278 автнметс 


;RESTORE RETURN ADDRESS 


LDA RETADR+1 
PHA 
LDA RETADR 
PHA 
INITIALIZE 
CPY #0 ;IS LENGTH OF ARRAYS = 0 ? 
BEQ EXIT :ҮЕ5, EXIT WITH С-1,2-1 
LOOP: 
LDA (MINPTR),Y ‚СЕТ NEXT BYTE 
CMP (SUBPTR),Y ;COMPARE BYTES 
BNE EXIT ;EXIT IF THEY ARE NOT EQUAL, THE FLAGS ARE SET 
DEY ;DECREMENT INDEX 
BNE LOOP ;CONTINUE UNTIL COUNTER = 0 
; IF WE FALL THROUGH THEN THE ARRAYS ARE EQUAL 
; AND THE FLAGS ARE SET PROPERLY 
EXIT: 
RTS 
P 
; DATA 
RETADR .BLOCK 2 ; TEMPORARY FOR RETURN ADDRESS 
; ; 
; ; 
; SAMPLE EXECUTION: ; 
Н Н 
; ; 
SC0610: 
LDA AYlADR-*1 
PHA 
LDA AYlADR 
PHA ;PUSH AYl ADDRESS 
LDA AY 2ADR+1 
PHA 
LDA AY 2ADR 
PHA ;PUSH AY2 ADDRESS 
LDA #SZAYS 
PHA ;PUSH SIZE OF ARRAYS 
JSR MPBCMP ;:MULTIPLE-PRECISION BINARY COMPARISON 
BRK ;RESULT OF COMPARE(7654321H,1234567H) IS 
$ C=1,2=0 
JMP SC0610 
SZAYS: . EQU 7 ¿SIZE OF ARRAYS 
AYlADR: .WORD АУ] ;ADDRESS OF ARRAY 1 (MINUEND) 
AY2ADR: .WORD AY2 ;ADDRESS OF ARRAY 2 (SUBTRAHEND) 


АҮ1: 


AY2: 


„ВУТЕ 
„ВУТЕ 
„ВУТЕ 
„ВУТЕ 
„ВУТЕ 
„ВУТЕ 
„ВУТЕ 


. BYTE 


. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 


„ЕКО 


; РКОСКАМ 
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Multiple-Precision Decimal Addition 


(MPDADD) 


6K 


Adds two multi-byte unsigned decimal 
numbers. Both numbers are stored with their 
least significant digits at the lowest address. 
The sum replaces one of the numbers (the 
one with the starting address lower in the 
stack). The length of the numbers (in bytes) 
is 255 or less. The program returns with the 
Decimal Mode (D) flag cleared (binary 
mode). 

Procedure: The program first enters the 
decimal mode by setting the D flag. It then 
clears the Carry flag initially and adds the 
operands one byte (two digits) at a time, 
starting with the least significant digits. The 
sum replaces the operand with the starting 
address lower in the stack (array 1 in the list- 
ing). A length of 00 causes an immediate exit 
with no addition operations. The program 
clears the D flag (thus placing the processor 
in the binary mode) before exiting. The final 


Registers Used: All 


Execution Time: 23 cycles per byte plus 82 cycles 
overhead. For example, adding two 8-byte (16- 
digit) operands takes 23 X 8 + 86 or 270 cycles. 


Program Size: 50 bytes 


Data Memory Required: Two bytes anywhere in 
RAM and four bytes on page 0. The two bytes 
anywhere in RAM are temporary storage for the 


return address (starting at address RETADR). 
The four bytes on page 0 hold pointers to the two 
operands; the pointers start at addresses 
АҮІРТЕ (0000, in the listing and AY2PTR 
(000215 in the listing). 


Special Case: A length of zero causes an 
immediate exit with array 1 unchanged (that is, 
the sum is equal to bottom operand). The 
Decimal Mode flag is cleared (binary mode) and 
the Carry flag is set to 1. 


Carry flag reflects the addition of the most 
significant digits. 


Entry Conditions 

Order in stack (starting from iop) 

Less significant byte of return address 
More significant byte of return address 


Length of the operands in bytes 


Less significant byte of starting address of 
second operand (address containing the 
least significant byte of array 2) 

More significant byte of starting address of 
second operand (address containing the 
least significant byte of array 2) 


Less significant byte of starting address of 
first operand and result (address contain- 
ing the least significant byte of array 1) 


280 


Exit Conditions 


First operand (array 1) replaced by 
first operand (array 1) plus 
second operand (array 2). 


D flag set to zero (binary mode). 


6K MULTIPLE-PRECISION DECIMAL ADDITION (MPDADD) 


More significant byte of starting address of 
first operand and result (address contain- 
ing the least significant byte of array 1) 


Example 


Data: 


Result: 


Г че че чо 


чо “с че че чо че чо чо чо че чо чо че че ча че чо чо чө чо че че че BOE TO 


Length of operands (in bytes) — 6 
Top operand (array 2) = 196028819315, 
Bottom operand (array 1) = 


293471605987 16 


Bottom operand (array 1) = Bottom 
operand (array 1) + Top operand 
(array 2) = 489500425302), 


Carry = 0, Decimal Mode flag = 


0 (binary mode) 


Title 


Name: 


Purpose: 


Entry: 


Exit: 
Registers used: 


Time: 


Multiple-Precision Decimal Addition 
MPDADD 


Add 2 arrays of BCD bytes 
Arrayl := Arrayl + Array2 


TOP OF STACK 


Low byte of return address, 
High byte of return address, 
Length of the arrays in bytes, 
Low byte of array 2 address, 
High byte of array 2 address, 
Low byte of array 1 address, 
High byte of array 1 address 


The arrays are unsigned BCD numbers with a 
maximum length of 255 bytes, ARRAY[0] is the 
least significant byte, and ARRAY [LENGTH-1] 
the most significant byte. 


Arrayl :- Arrayl * Array2 
All 


23 cycles per byte plus 86 cycles 
overhead. 
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Size: Program 50 bytes 
Data 2 bytes plus 
4 bytes in page zero 


=e зр че GO че 


; EQUATES 
AYlPTR: .EQU ODOH ;PAGE ZERO FOR ARRAY 1 POINTER 
AY2PTR: .EQU OD2H ; PAGE ZERO FOR ARRAY 2 POINTER 
MPDADD: 

;SAVE RETURN ADDRESS 

PLA 

STA RETADR 

PLA 

STA RETADR+1 

? СЕТ LENGTH OF ARRAYS 

PLA 

TAX 

;GET STARTING ADDRESS OF ARRAY 2 

PLA 

STA AY2PTR 

PLA 

STA AY2PTR+1 

;GET STARTING ADDRESS OF ARRAY 1 

PLA 

STA AYlPTR 

PLA 

STA АУТРТК+1 

;RESTORE RETURN ADDRESS 

LDA RETADR+1 

PHA 

LDA RETADR 

PHA 

INITIALIZE SUM AND DECIMAL MODE, EXIT IF LENGTH = 0 

LDY #0 

CPX #0 ? 15 LENGTH OF ARRAYS = 0 ? 

BEQ EXIT ;BRANCH IF LENGTH IS 0 

SED :SET DECIMAL MODE 

CLC sCLEAR CARRY 
LOOP: 

LDA (AYIPTR) ,Y sGET NEXT BYTE 

ADC (AY2PTR) ,Y ¿ADD BYTES 

STA (AY1PTR) ,Y ¿STORE SUM 

INY ¿INCREMENT ARRAY INDEX 

DEX ; DECREMENT COUNTER 

BNE LOOP sCONTINUE UNTIL COUNTER = 0 
EXIT: 


CLD ¿RETURN IN BINARY MODE 


чо wo че че чо 
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RTS 
; 
DATA 
RETADR .BLOCK 2 ;TEMPORARY FOR RETURN ADDRESS 
; ; 
; Н 
Н SAMPLE EXECUTION: ; 
; ; 
; ; 
SC0611: 
LDA AY1ADR+1 
PHA 
LDA AY1ADR 
PHA ; PUSH AY1 ADDRESS 
LDA AY2ADR+1 
PHA 
LDA AY2ADR 
PHA ;PUSH AY2 ADDRESS 
LDA #SZAYS 
PHA ;PUSH SIZE OF ARRAYS 
JSR MPDADD ;MULTIPLE-PRECISION BCD ADDITION 
BRK ¿RESULT OF 1234567 + 1234567 = 2469134 
: IN MEMORY АУ1 = 34H 
; АУ1+1 = 91H 
| AY1+2 = 46H 
; AY1+3 = 02H 
; AY1+4 = QOH 
; AY1+5 = ООН 
; AY1+6 = 00H 
JMP SC0611 
SZAYS: .EQU 7 ;SIZE OF ARRAYS 
AYlADR: .WORD АҮ1 ¿ADDRESS ОЕ ARRAY 1 
AY2ADR: .WORD AY2 ;ADDRESS OF ARRAY 2 
AY1: 
. BYTE 067H 
. BYTE 045H 
. w BYTE 023H 
. BYTE 001H 
. BYTE 0 
. BYTE 0 
. BYTE 0 
AY2: 


. BYTE 067H 
. BYTE 045H 
. BYTE 023H 
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.BYTE 00148 


.BYTE 0 
.BYTE 0 
.BYTE 0 


.END _ ;PROGRAM 


Multiple-Precision Decimal Subtraction 


(MPDSUB) 


Subtracts two multi-byte unsigned 
decimal numbers. Both numbers are stored 
with their least significant digits at the lowest 
address. The starting address of the 
subtrahend (number to be subtracted) is 
stored on top of the starting address of the 
minuend (number from which the 
subtrahend is subtracted). The difference 
replaces the minuend in memory. The length 
of the numbers (in bytes) is 255 or less. The 
program returns with the Decimal Mode (D) 
flag cleared (binary mode). 

Procedure: The program first enters the 
: decimal mode by setting the D flag. It then 
sets the Carry flag (the inverted borrow) 
initially and subtracts the subtrahend from 
the minuend one byte (two digits) at a time, 
starting with the least significant digits. The 
final Carry flag reflects the subtraction of the 
most significant digits. The difference re- 
places the minuend (the operand with the 
starting address lower in the stack, array 1 in 


6L 


Registers Used: All 


Execution Time: 23 cycles per byte plus 86 cycles 
overhead. For example, subtracting two 8-byte 
(16-digit) operands takes 23 x 8 + 86 or 270 
cycles. 


Program Size: 50 bytes 


Data Memory Required: Two bytes anywhere in 
RAM and four bytes on page 0. The two bytes 


anywhere in RAM are temporary storage for the 
return address (starting at address RETADR). 
The four bytes on page 0 hold pointers to the two 
Operands; the pointers start at addresses 
AYIPTR (0000, in the listing) and AY2PTR 
(00026 in the listing). 


Special Case: A length of zero causes an 
immediate exit with the difference equal to the 
original minuend, the Decimal Mode flag cleared 
(binary mode), and the Carry flag set to 1. 


the listing). A length of 00 causes an immedi- 
ate exit with no subtraction operations. The 
program clears the D flag (thus placing the 
processor in the binary mode) before exiting. 


Entry Conditions 


Order in stack (starting from the top) 


Less significant byte of return address 
More significant byte of return address 


Length of the operands in bytes 


Less significant byte of starting address of 
subtrahend (address containing the least 
significant byte of array 2) 

More significant byte of starting address of 
subtrahend (address containing the least 
significant byte of array 2) 


Less significant byte of starting address of 


Exit Conditions 


Minuend (array 1) replaced by minuend 
(array 1) minus subtrahend (array 2). 


D flag set to zero (binary mode). 
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minuend (address containing the least sig- 
nificant byte of array 1) 

More significant byte of starting address of 
minuend (address containing the least sig- 
nificant byte of array 1) 


Example 


Data: Length of operands (in bytes) = 6 
Minuend (array 1) = 293471605987 6 
Subtrahend (array 2) = 196028819315; 


Result: Difference (array 1) = 097442786672. 
This number replaces the original minuend 
in memory. The Carry flag is set to 1 in accordance 
with its usual role (in 6502 programming) 
as an inverted borrow. 


Decimal Mode flag = 0 (binary mode) 


? Title Multiple-Precision Decimal Subtraction 
; Name: MPDSUB 
Н 
; 
Purpose: Subtract 2 arrays of BCD bytes 


Minuend := Minuend - Subtrahend 


Entry: TOP OF STACK 
Low byte of return address, 
High byte of return address, 
Length of the arrays in bytes, 
Low byte of subtrahend address, 
High byte of subtrahend address, 
Low byte of minuend address, 
High byte of minuend address 


The arrays are unsigned BCD numbers with a 
maximum length of 255 bytes, ARRAY[0] is the 
least significant byte, and ARRAY [LENGTH-1] 
the most significant byte. 


Exit: Arrayl := Arrayl - Array2 


=e w че че ча че ча че * че че WE че WH чо чо че ча че че че 


Registers used: All 


че e че чо 


me чо чо TO чо че ча Че че че ча WS че че че чо че WH че че че 


=e wo ча чо че чо чо че WE 


; EQUATES 


MINPTR: 
SUBPTR: 


MPDSUB: 


LOOP: 
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Time: 23 cycles per byte plus 86 cycles 
overhead. 

Size: Program 50 bytes 
Data 2 bytes plus 


4 bytes in page zero 


. EQU ODOH ;PAGE ZERO FOR MINUEND POINTER 
. EQU 0D2H ;PAGE ZERO FOR SUBTRAHEND POINTER 


;SAVE RETURN ADDRESS 


PLA 

STA RETADR 

PLA 

STA RETADR+1 

;GET LENGTH OF ARRAYS 

PLA 

TAX 

;GET STARTING ADDRESS OF SUBTRAHEND 

PLA 

STA SUBPTR 

PLA 

STA SUBPTR-*1 

;GET STARTING ADDRESS OF MINUEND 

PLA 

STA MINPTR 

PLA 

STA MINPTR+1 

;RESTORE RETURN ADDRESS 

LDA RETADR+1 

PHA 

LDA RETADR 

PHA 

; INITIALIZE 

LDY #0 

CPX #0 ;IS LENGTH OF ARRAYS = 0 ? 
BEQ EXIT ; YES, EXIT 

SED ¿SET DECIMAL MODE 
SEC ;SET CARRY 

LDA (MINPTR),Y ;GET NEXT BYTE 
SBC (SUBPTR) ,Y ;SUBTRACT BYTES 
STA (MINPTR) ,Y ;STORE DIFFERENCE 
INY | ;INCREMENT ARRAY INDEX 
DEX ;DECREMENT COUNTER 


BNE LOOP ;CONTINUE UNTIL COUNTER = 0 


чо чо чо че чо че ча че WO 


288 автнметс 


EXIT: 
CLD 
RTS 


RETADR .BLOCK 2 


SAMPLE EXECUTION: 


=e чо че че чо 


5с0612: 

LDA AYIADR+1 
PHA 

LDA AYlADR 
PHA 

LDA AY 2ADR+1 
PHA 

LDA AY 2ADR 
PHA 

LDA #SZAYS 
PHA 

JSR MPDSUB 
BRK 

JMP SC0612 


SZAYS:  .EQU 7 


AYlADR: .WORD АҮ] 
AY2ADR: .WORD AY2 


AY1: 
. BYTE 034H 
. BYTE 091H 
. BYTE 046H 
. BYTE 002H 
. BYTE 0 
. BYTE 0 
.BYTE 0 


;RETURN IN BINARY MODE 


;TEMPORARY FOR RETURN ADDRESS 


;PUSH AYl ADDRESS 


;PUSH AY2 ADDRESS 


;PUSH SIZE OF ARRAYS 


;MULTIPLE-PRECISION BCD SUBTRACTION 
;RESULT OF 2469134 - 1234567 = 1234567 


-. че MOE че че чо че 


IN MEMORY АУ1 


AY1+1 
AY1+2 
AY1+3 
AY1+4 
AY1+5 
AY1+6 


;SIZE OF ARRAYS 


;ADDRESS OF ARRAY 1 
;ADDRESS OF ARRAY 2 


67H 
4 5H 
23H 
01H 
00H 
00H 
00H 


(MINUEND) 
(SUBTRAKEND) 


че че no че BO 


AY2: 


. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 


. END 


; PROGRAM 
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Multiple-Precision Decimal Multiplication 


(MPDMUL) 


6M 


Multiplies two multi-byte unsigned 
decimal numbers. Both numbers are stored 
with their least significant digits at the lowest 
address. The product replaces one of the 
numbers (the one with the starting address 
lower in the stack). The length of the num- 
bers (in bytes) is 255 or less. Only the least 
Significant bytes of the product are returned 
to retain compatibility with other multiple- 
precision decimal operations. The program 
returns with the Decimal Mode (D) flag 
cleared (binary mode). 

Procedure: The program handles each digit 


Registers Used: All 


Execution Time: Depends on the length of the 
operands and on the size of the digits in the 
multiplicand (since those digits determine how 
many times the multiplier is added to the partial 
product). 

If the average digit in the multiplicand has a 
value of 5, then the execution time is approx- 
imately | 

322 X LENGTH? + 390 x LENGTH + 100 
cycles where LENGTH is the number of bytes in 
the operand. If, for example, LENGTH = 6 (12 
digits), the approximate execution time is 

322 x 62 + 390 x 6 + 100 = 322 x 36 + 2340 

+ 100 = 11,592 + 2440 = 14,032 cycles. 


Program Size: 203 bytes 


Data Memory Required: 517 bytes anywhere in 
RAM plus four bytes on page 0. The 517 bytes 
anywhere in RAM are temporary storage for the 


Entry Conditions 


Order in stack (starting from the top) 


Less significant byte of return address 
More significant byte of return address 


Length of the operands in bytes 
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of the multiplicand (array 1) separately. It 
masks that digit off, shifts it (if it is in the 
upper nibble of a byte), and then uses it as a 
counter to determine how many times to add 
the multiplier to the partial product. The least 
significant digit of the partial product is saved 
as the next digit of the full product and the 
partial product is shifted right four bits. The 
program uses a flag to determine whether it is 
currently working with the upper or lower 
digit of a byte. A length of 00 causes an exit 
with no multiplication. 


partial product (255 bytes starting at address 
PROD), the multiplicand (255 bytes starting at 
address MCAND), the return address (two bytes 
starting at address RETADR), the length of the 
operands in bytes (one byte at address 
LENGTH), the next digit in the operand (one 
byte at address NDIGIT), the digit counter (one 
byte at address DCNT), the byte index into the 
operands (one byte at address IDX), and the 
overflow byte (1 byte at address OVERFLW). 
The four bytes on page 0 hold pointers to the two 
operands; the pointers start at addresses 
AYIPTR (0000, in the listing) and AY2PTR 
(0002,6 in the listing). 


Special Case: A length of zero causes an 
immediate exit with the product equal to the orig- 
inal multiplicand (array 1 is unchanged), the 
Decimal Mode flag cleared (binary mode), and 
the more significant bytes of the product (starting 
at address PROD) undefined. 


Exit Conditions 


Multiplicand (array 1) replaced by multipli- 
cand (array 1) times multiplier (array 2). 


D flag set to zero (binary mode). 
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Less significant byte of starting address of 
multiplier (address containing the least 
significant byte of array 2) 

More significant byte of starting address of 
multiplier (address containing the least 
significant byte of array 2) 


Less significant byte of starting address of 
multiplicand (address containing the least 
significant byte of array 1) 

More significant byte of starting address of 
multiplicand (address containing the least 
significant byte of array 1) 


Example 
Data: Length of operands (in bytes) = 04 
Top operand (array 2 or multiplier) 
Bottom operand (array 1 or multiplicand) 
= 00006294, 


Bottom operand (array 1) = Bottom 
operand (array 1) * Top operand 
(array 2) = 22142292,,. 


Decimal Mode flag — 0 (binary mode) 


Result: 


; Title 

; Name: MPDMUL 
; Purpose:. 

Н 

; Entry: TOP OF STACK 
; 

; 

; 

P 

; 

; 

; Exit: 


Multiple-Precision Decimal Multiplication 


Multiply 2 arrays of BCD bytes 
Arrayl := Arrayl * Array2 


Low byte of return address, 

High byte of return address, 

Length of the arrays in bytes, 

Low byte of array 2 (mulitplicand) address, 
High byte of array 2 (multiplicand) address, 
Low byte of array 1 (multiplier) address, 
High byte of array 1 (multiplier) address 


The arrays are unsigned BCD numbers with a 
maximum length of 255 bytes, ARRAY[0] is the 
least significant byte, and ARRAY [LENGTH-1] 
the most significant byte. 


Arrayl := Arrayl * Array2 


Note that MPDMUL returns only the less 
significant bytes of the product (that is, the 
number of bytes in the multiplicand and 
multiplier) to maintain compatibility with 
other multiple-precision decimal arithmetic 
operations. The more significant bytes of the 
product are available starting with their least 
significant digits at address PROD. The user 
may need to check those bytes for a possible 
overflow or extend the operands with addi- 
tional zeros. 


чо че чо че чо чо чо чо чо чо чо чо чо че че че BO че TO че че 
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Registers used: All 


Time: Assuming the average digit value of ARRAY 1 is 
5 then the time is approximately 
(322 * length^2) + (390 * length) + 100 cycles 


Size: Program 203 bytes 
Data 517 bytes plus 
4 bytes in page zero 


we че че че TO че че че че "0 че < 


; EQUATES 
AYlPTR: .EQU орон ;PAGE ZERO FOR ARRAY 1 POINTER 
AY2PTR: .EQU 0D2H ; PAGE ZERO FOR ARRAY 2 POINTER 
MPDMUL: 

;SAVE RETURN ADDRESS 

PLA 

STA RETADR 

PLA 

STA RETADR+1 

;GET LENGTH OF ARRAYS 

PLA 

STA LENGTH 

; СЕТ STARTING ADDRESS OF ARRAY 2 

PLA 

STA AY2PTR 

PLA 

STA AY2PTR+1 

;GET STARTING ADDRESS OF ARRAY 1 

PLA 

STA AYlPTR 

PLA 

STA AY1PTR+1 

;RESTORE RETURN ADDRESS 

LDA RETADR+1 

PHA 

LDA RETADR 

PHA 

; INITIALIZE 

SED ;PUT PROCESSOR IN DECIMAL MODE 

LDY #0 

LDX LENGTH ;IS LENGTH ZERO ? 

BNE INITLP 

JMP EXIT ;YES, EXIT 


¿MOVE ARRAY 1 TO MULTIPLICAND ARRAY, ZERO ARRAY 1, AND 
; ZERO PRODUCT ARRAY. 
INITLP: 
LDA (АҮІРТК),Ү 
STA MCAND, Y ¿MOVE ARY1[Y] TO MCAND[Y] 


чо че чо TO че VO TO VO чо чо чо 


LOOP: 


DLOOP: 


DLOOP1: 


ADDLP: 


INNER: 


DECND: 


ӨМ MULTIPLE-PRECISION DECIMAL MULTIPLICATION (MPDMUL) 


LDA #0 

STA (АҮІРТК),Ү :7ЕКО ARY1[Y] 

STA PROD,Y ; ZERO PROD 

INY 

DEX ;DECREMENT LOOP COUNTER 
BNE INITLP . ;CONTINUE UNTIL DONE 

; INITIALIZE CURRENT INDEX TO ZERO 

LDA $0 

STA IDX 


; 
;LOOP THROUGH ALL THE BYTES OF THE MULTIPLICAND 


LDA $0 
STA DCNT ;START WITH LOW DIGIT 


;LOOP THROUGH 2 DIGITS PER BYTE 
; DURING THE FIRST DIGIT DCNT = 0 
; DURING THE SECOND DIGIT DCNT - FF HEX (-1) 


LDA #0 

STA OVRF LW ; ZERO OVERFLOW 

LDY IDX 

LDA MCAND, Y ;GET NEXT BYTE 

LDX DCNT 

BPL DLOOP1 ;BRANCH IF FIRST DIGIT 
LSR A ;SHIFT RIGHT 4 BITS 
LSR A 

LSR A 

LSR A 

AND #ОЕН ;AND OFF UPPER DIGIT 
BEQ SDIGIT ;BRANCH IF NEXT DIGIT IS ZERO 
STA NDIGIT ;SAVE 


;ADD MULTIPLIER TO PRODUCT NDIGIT TIMES 


LDY $0 ;Y = INDEX INTO ARRAYS 

LDX LENGTH ;X - LENGTH IN BYTES 

CLC ;CLEAR CARRY INITIALY 

LDA (AY2PTR),Y ;GET NEXT BYTE 

ADC PROD,Y ;ADD TO PRODUCT 

STA PROD,Y ;STORE 

INY ;INCREMENT ARRAY INDEX 

DEX ; DECREMENT LOOP COUNTER 

BNE INNER ;CONTINUE UNTIL LOOP COUNTER = 0 
BCC DECND ;BRANCH IF NO OVERFLOW FROM ADDITION 
INC OVRF LW ;ELSE INCREMENT OVERFLOW BYTE 
DEC NDIGIT 


BNE ADDLP ¿CONTINUE UNTIL NDIGIT = 0 
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;STORE THE LEAST SIGNIFICANT DIGIT OF PRODUCT 
; AS THE NEXT DIGIT OF ARRAY 1 


SDIGIT: 
LDA PROD 
AND #0FH ;CLEAR UPPER DIGIT 
LDX DCNT | 
BPL SD1 ;BRANCH IF FIRST DIGIT 
ASL A ;ELSE SHIFT LEFT 4 BITS TO PLACE 
ASL A : IN THE UPPER DIGIT 
ASL A 
ASL A 
SD1: 
LDY IDX | ;GET CURRENT BYTE INDEX 
ORA (АҮІРТЕ),Ү SOR IN NEXT DIGIT 
STA (АҮІРТЕ),Ү ¿STORE NEW VALUE 
;SHIFT RIGHT PRODUCT 1 DIGIT (4 BITS) 
LDY LENGTH ¿SHIFT RIGHT FROM THE FAR END 
SHFTLP: 
DEY ;DECREMENT Y SO IT POINTS AT THE NEXT BYTE 
LDA PROD,Y 
PHA ;SAVE LOW DIGIT OF PROD,Y 
AND #0F OH CLEAR LOW DIGIT 
;MAKE LOW DIGIT OF OVERFLOW = HIGH DIGIT OF PROD,Y 
;MAKE HIGH DIGIT OF PROD,Y = LOW DIGIT OF PROD,Y 
LSR OVRF LW ;SHIFT OVERFLOW RIGHT 
ORA OVRFLW ¿BIT 0..2 AND CARRY = OVERFLOW 
;BITS 4..7 = PROD 
ROR A 
ROR A 
ROR A 
ROR A ;NOW PROD IN BITS 0..3 AND OVERFLOW IN 4..7 
STA PROD,Y sSTORE NEW PRODUCT 
PLA ‚СЕТ OLD PROD, Y 
AND %ОЕН sCLEAR UPPER DIGIT 
STA OVRF LW :STORE IN OVERFLOW 
TYA CHECK FOR Y = 0 
BNE SHFTLP ¿BRANCH IF NOT DONE 
¿CHECK IF WE ARE DONE WITH BOTH DIGITS OF THIS BYTE 
DEC DCNT ‚МАКЕ 0 GOTO FF HEX TO INDICATE SECOND DIGIT 
LDA DCNT | 
СМР $0FFH ? НАУЕ WE ALREADY DONE BOTH DIGITS ? 
BEQ ` DLOOP :BRANCH IF NOT 
;INCREMENT TO NEXT BYTE AND SEE IF WE ARE DONE 
INC IDX 
LDA IDX 
CMP LENGTH 
BCS EXIT ¿BRANCH IF BYTE INDEX >= LENGTH 
JMP LOOP ;ELSE CONTINUE 


EXIT: 


, 

; DATA 
RETADR: 
LENGTH: 
NDIGIT: 
DCNT: 
IDX: 
OVRF LW: 
PROD: 
MCAND: 


чө че wo че чо 


SC0613: 


SZAYS: 


AYlADR: 
AY2ADR: 


АҮ]: 


CLD 
RTS 


. BLOCK 
. BLOCK 
. BLOCK 
. BLOCK 
. BLOCK 
. BDOCK 
. BLOCK 
. BLOCK 


SAMPLE EXECUTION: 


LDA 
PHA 
LDA 
PHA 


LDA 
PHA 
LDA 
PHA 


LDA 
PHA 
JSR 
BRK 


JMP 
. EQU 


. WORD 
. WORD 


. BYTE 
. BYTE 
. BYTE 
. BYTE 


AYIADR+1 


AYlADR 


AY2ADR*1 


AY2ADR 


#SZAYS 


MPDMUL 


5С0613 


6M MULTIPLE-PRECISION DECIMAL MULTIPLICATION (MPDMUL) 


;RETURN IN BINARY MODE 


;TEMPORARY FOR RETURN ADDRESS 
;LENGTH OF ARRAYS 

;NEXT DIGIT IN ARRAY 

;DIGIT COUNTER FOR BYTES IN ARRAYS 
;BYTE INDEX INTO ARRAYS 

;OVERFLOW BYTE 

; PRODUCT BUFFER 

;MULTIPLICAND BUFFER 


;PUSH AYl ADDRESS 


; PUSH AY2 ADDRESS 


;PUSH LENGTH OF ARRAYS 
;MULTIPLE-PRECISION BCD MULTIPLICATION 
;RESULT OF 1234 * 1234 = 1522756 


; IN MEMORY AYl = 56H 
; АҮ1+1 = 27H 
Н АҮ1+2 = 52H 
; AY1+3 = 01H 
; AY1+4 = 00H 
; AY1+5 = 00H 
H AY1+6 = 00H 


; LENGTH OF ARRAYS 


;ADDRESS OF ARRAY 1 
;ADDRESS OF ARRAY 2 
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. BYTE 0 
. BYTE 0 
. BYTE 0 


AY2: 
| . BYTE 034H 

. BYTE 012H 

. BYTE 0 

. BYTE 0 

. BYTE 0 

.BYTE 0 

. BYTE 0 


. END ; PROGRAM 


Multiple-Precision Decimal Division 


(MPDDIV) 


Divides two multi-byte unsigned decimal 
numbers. Both numbers are stored with their 
least significant byte at the lowest address. 
The quotient replaces the dividend (the 
operand with the starting address lower in the 
stack). The length of the numbers (in bytes) 
is 255 or less. The remainder is not returned 
but the address of its least significant byte is 
available starting at memory location 
HDEPTR. The Carry flag is cleared if no 
errors occur; if a divide by zero is attempted, 
the Carry flag is set to 1, the dividend is left 
unchanged, and the remainder is set to zero. 


Registers Used: All 


Execution Time: Depends on the length of the 
operands and on the size of the digits in the quo- 
tient (determining how many trial subtractions 
must be performed). If the average digit in the 
quotient has a value of 5, then the execution time 
is approximately 


440 x LENGTH? + 765 x LENGTH + 228 


cycles where LENGTH is the number of bytes in 
the operands. If, for example, LENGTH = 6 (12 
digits), the approximate execution time is 


440 x 6? + 765 x 6 + 228 = 440 x 36 + 4590 
+ 228 = 15,840 + 4818 = 20,658 cycles. 


Program Size: 246 bytes 


Data Memory Required: 522 bytes anywhere in 
RAM plus eight bytes on page 0. The 522 bytes 
anywhere in RAM are temporary storage for the 
high dividend (255 bytes starting at address 
НІРЕІ), the result of the trial subtraction (255 
bytes starting at address HIDE2), the return 
address (two bytes starting at address 
RETADR), a pointer to the dividend (two bytes 
starting at address AYIPTR), the length of the 


6N 


The program returns with the Decimal Mode 
(D) flag cleared (binary mode). 

Procedure: The program performs division 
by trial subtractions, a digit at a time. It deter- 
mines how many times the divisor can be 
subtracted from the dividend and then saves 
that number in the quotient and makes the 
remainder into the new dividend. It then 
rotates the dividend and the quotient left one 
digit. The program exits immediately, setting 
the Carry flag, if it finds the divisor to be 
zero. The Carry flag is cleared otherwise. 


operands (one byte at address LENGTH), the 
next digit in the array (one byte at address 
NDIGIT), the divide loop counter (one byte at 
address COUNT), and the addresses of the high 
dividend buffers (two bytes each, starting at 
addresses AHIDE1 and AHIDE2). The eight 
bytes on page 0 hold pointers to the divisor 
(address АҮ2РТЕ, 00D0,, in the listing), the 
current high dividend and remainder (address 
HDEPTR, 0002, in the listing), the other high 
dividend (address ODEPTR, 00D4,, in the list- 
ing), and the temporary array used in the left 
rotation (address RLPTR, 00D6,, in the listing). 


Special Cases: 


l. A length of zero causes an immediate exit 
with the Carry flag cleared, the quotient equal to 
the original dividend (array 1 unchanged), the 
remainder undefined, and the Decimal Mode flag 
cleared (binary mode). 


2. A divisor of zero causes an exit with the 
Carry flag set to 1, the quotient equal to the origi- 
nal dividend (array 1 unchanged), the remainder 
equal to zero, and the Decimal Mode flag cleared 
(binary mode). 
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Entry Conditions 


Order in stack (starting from the top) 


Less significant byte of return address 
More significant byte of return address 


Length of the operands in bytes 


Less significant byte of starting address of 
divisor (address containing the least sig- 
nificant byte of array 2) 

More significant byte of starting address of 
divisor (address containing the least sig- 
nificant byte of array 2) 


Less significant byte of starting address of 
dividend (address containing the least sig- 
nificant byte of array 1) 

More significant byte of starting address of 
dividend (address containing the least sig- 
nificant byte of array 1) 


Exit Conditions 


Dividend (array 1) replaced by dividend 
(array 1) divided by divisor (array 2) 

If the divisor is non-zero, Carry — 0 and 
the result is normal. 

If the divisor is zero, Carry = 1, the divi- 
dend is unchanged, and the remainder is 
Zero. 

The remainder is available with its least 
significant digits stored at the address in 
HDEPTR and HDEPTR +1 

D flag set to zero (binary mode). 


Example 


Length of operands (in bytes) = 04 
Top operand (array 2 or divisor) — 
00006294, 

Bottom operand (array 1 or dividend) = 
22142298 6 


Data: 


Bottom operand (array 1) — Bottom 
operand (array 1)/Top operand 
(array 2) = 00003518}, 


Remainder (starting at address in 
HDEPTR and HDEPTR+1) = 
00000006, 6 = 610 

Decimal Mode flag — 0 (binary mode) 
Carry flag is 0 to indicate no 

divide by zero error. 


Result: 


Title 
Name: 


ео =e чо че 


Purpose: 


Entry: 


Exit: 


Time: 


Size: 


чо чо че що 
ча че чо чо чо чо we Lo чо чо чо чо We We чо че WE чо WO VE WE чо че зо WH WE че че че чо чо че че че чо е 


; EQUATES 

AY2PTR: .EQU 
HDEPTR: .EQU 
ODEPTR: .EQU 
RLPTR: .EQU 


MPDDIV: 


Registers used: 


ODOH 
0D2H 


0D4H 


OD6H 
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Multiple-Precision Decimal Division 
MPDDIV 


Divide 2 arrays of BCD bytes 
Arrayl := Arrayl / Array2 


TOP OF STACK 
Low byte of return address, 
High byte of return address, 
Length of the arrays in bytes, 
Low byte of array 2 (divisor) address, 
High byte of array 2 (divisor) address, 
Low byte of array 1 (dividend) address, 
High byte of array 1 (dividend) address 


The arrays are unsigned BCD numbers with a 
maximum length of 255 bytes, ARRAY[0] is the 
least significant byte, and ARRAY [LENGTH-1] 
the most significant byte. 


Arrayl := Arrayl / Array2 
Dvbuf := remainder 
If no errors then 
carry := 0 
ELSE 
divide by 0 error 
carry := 1 
ARRAY 1 := unc 
remainder := 0 


All 


Assuming the average digit value in the 
quotient is 5 then the time is approximately 


(440 * length*2) + (765 * length) + 228 cycles 


Program 246 bytes 
Data 522 bytes plus 
8 bytes in page zero 


; PAGE ZERO FOR ARRAY 2 (DIVISOR) POINTER 


; PAGE ZERO WHICH POINTS TO THE CURRENT 
; HIGH DIVIDEND POINTER 

; PAGE ZERO WHICH POINTS TO THE OTHER 

; HIGH DIVIDEND POINTER 

; PAGE ZERO FOR ROTATE LEFT ARRAY 


me че nao "9 


=e we че чо чо чо 
че че чо TO Э чо че че we чо че че WE че чо WS че чо че че че че че чо че че TO че TE чо чо че чо 


ЗОО лвғтнметіс 


;GET RETURN ADDRESS 


PLA 

STA RETADR 

PLA 

STA RETADR+1 

;GET LENGTH OF ARRAYS 

PLA 

STA LENGTH 

;GET STARTING ADDRESS OF DIVISOR 

PLA 

STA AY2PTR 

PLA 

STA AY 2PTR+1 

;GET STARTING ADDRESS OF DIVIDEND 

PLA 

STA AYlPTR 

PLA 

STA АҮ1РТЕ+1 

;RESTORE RETURN ADDRESS 

LDA RETADR+1 

PHA 

LDA RETADR 

PHA 

; INITIALIZE 

CLD ;PUT PROCESSOR INTO BINARY MODE 

;CHECK FOR ZERO LENGTH ARRAYS 

LDA LENGTH 

BNE INIT ;BRANCH IF NOT ZERO 

JMP OKEXIT ;ELSE EXIT 

? ZERO BOTH DIVIDEND BUFFERS 
INIT: 

LDA #0 А = 0 

LDY LENGTH zX = LENGTH 
INITLP: 

STA HIDE1-1,Y 

STA HIDE2-1,Y 

DEY 

BNE INITLP 

;SET UP THE HIGH DIVIDEND POINTERS 

LDA AHIDEI 

STA HDEPTR 

LDA AHIDE1+1 

STA HDEPTR+1 

LDA AHIDE2 

STA ODEPTR 

LDA АНТОЕ2 +] 


STA ODEPTR+1 


CHKDVO: 


DV01: 


DVLOOP: 


ROLDVB: 


;NDIGIT := 0 
LDA #0 
STA NDIGIT 
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¿SET COUNT TO NUMBER OF DIGITS PLUS 1 
; COUNT := (LENGTH * 2) + 1 


LDA LENGTH 
ASL A 

STA COUNT 
LDA #0 

ROL A 

STA COUNT+1 
INC COUNT 
BNE CHKDVO 
INC COUNT+1 


;LENGTH * 2 


;MOVE OVERFLOW FROM * 2 INTO А 
;STORE HIGH BYTE OF COUNT 


;BRANCH IF NO OVERFLOW 


;CHECK FOR DIVIDE BY ZERO 


LDX LENGTH 

LDY #0 

TYA 

ORA (AY2PTR) ,Y 
INY 

DEX 

BNE DV01 

CMP #0 

BNE DVLOOP 

JMP EREXIT 


;CONTINUE ORING ALL THE BYTES 


;BRANCH IF DIVISOR IS NOT 0 
;ERROR EXIT 


;PERFORM DIVISION BY TRIAL SUBTRACTIONS 


;ROTATE LEFT THE LOWER DIVIDEND AND THE QUOTIENT (ARRAY 1) 


; THE HIGH DIGIT OF NDIGIT BECOMES THE LEAST SIGNIFICANT DIGIT 
; 


OF THE QUOTIENT (ARRAY 1) AND THE MOST SIGNIFICANT DIGIT 
; OF ARRAY 1 (DIVIDEND) GOES TO THE HIGH DIGIT OF NDIGIT 


;ROTATE ARRAY 1 


;IF COUNT - 0 THEN WE ARE DONE 


LDA AYIPTR+1 
LDY AYlPTR 
JSR RLARY 
DEC COUNT 
BNE ROLDVB 
LDA COUNT+1 
BEQ OKEXIT 
DEC COUNT+1 


° 
, 


;BRANCH IF LOWER BYTE IS NOT O0 
;ELSE GET HIGH BYTE 

;CONTINUE UNTIL COUNT = 0 
;DECREMENT UPPER BYTE OF COUNT 
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;ROTATE LEFT THE HIGH DIVIDEND WHERE THE LEAST SIGNIFICANT DIGIT 
; OF HIGH DIVIDEND BECOMES THE HIGH DIGIT OF NDIGIT 


LDA HDEPTR+1 
LDY HDEPTR 
JSR RLARY 
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SUBLP: 


INNER: 


OKEXIT: 


EREXIT: 


EXIT: 


SEE HOW MANY TIMES THE DIVISOR WILL GO INTO THE HIGH DIVIDEND 
WHEN WE EXIT FROM THIS LOOP THE HIGH DIGIT OF NDIGIT IS THE NEXT 
; QUOTIENT DIGIT AND HIGH DIVIDEND IS THE REMAINDER 

LDA $0 


е че чо w 


STA NDIGIT ;NDIGIT := 0 

SED ;ENTER DECIMAL MODE 

LDY #0 }У = INDEX INTO ARRAYS 

LDX LENGTH ;X = LENGTH 

SEC ¿SET INVERTED BORROW 

LDA (HDEPTR) ,Y ;GET NEXT BYTE OF DIVIDEND 

SBC (AY2PTR),Y ;SUBTRACT BYTE OF DIVISOR 

STA (ODEPTR) ,Y ;SAVE DIFFERENCE FOR NEXT SUBTRACTION 
INY ;INCREMENT ARRAY INDEX 

DEX ;DECREMENT LOOP COUNTER 

BNE INNER ;CONTINUE THROUGH ALL THE BYTES 

BCC DVLOOP ;BRANCH WHEN BORROW OCCURS AT WHICH TIME 


NDIGIT IS THE NUMBER OF TIMES THE DIVISOR 
GOES INTO THE ORIGINAL HIGH DIVIDEND AND 
HIGH DIVIDEND CONTAINS THE REMAINDER. 


me че чо 


;INCREMENT NEXT DIGIT WHICH IS IN THE HIGH DIGIT OF NDIGIT 
LDA NDIGIT | 


CLC 
ADC _ $10H 
STA NDIGIT 


;EXCHANGE POINTERS, THUS MAKING REMAINDER THE NEW DIVIDEND 
LDX HDEPTR 


LDY HDEPTR+1 

LDA ODEPTR 

STA HDEPTR 

LDA ODEPTR+1 

STA HDEPTR+1 

STX ODEPTR 

STY ODEPTR+1 

JMP SUBLP ;CONTINUE UNTIL DIFFERENCE GOES NEGATIVE 


;NO ERRORS, CLEAR CARRY 


CLC 
BCC EXIT 


;DIVIDE BY ZERO ERROR, SET CARRY 


SEC 


:HDEPTR CONTAINS THE ADDRESS OF THE REMAINDER 
CLD ;RETURN IN BINARY MODE 


RTS 
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; kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
; SUBROUTINE: RLARY  - 
; PURPOSE: ROTATE LEFT AN ARRAY ONE DIGIT (4 BITS) 
;ENTRY: A = HIGH BYTE OF ARRAY ADDRESS 
Y - LOW BYTE OF ARRAY ADDRESS 
THE HIGH DIGIT OF NDIGIT IS THE DIGIT TO ROTATE THROUGH 


че we 


; EXIT: 


ARRAY ROTATED LEFT THROUGH THE HIGH DIGIT OF NDIGIT 


;REGISTERS USED: ALL 
; ook k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k # 


RLARY: 
;STORE ARRAY ADDRESS 
STA RLPTR+1 
STY RLPTR 
¿SHIFT NDIGIT INTO LOW DIGIT OF ARRAY AND 
: SHIFT ARRAY LEFT 
LDX LENGTH 
LDY #0 ¿START AT АКУ1 [0] 
SHIFT: 
LDA (RLPTR) ,Y sGET NEXT BYTE 
PHA ? ЗАУЕ HIGH DIGIT 
AND %0ЕН ¿CLEAR HIGH DIGIT 
ASL NDIGIT 
ORA NDIGIT ;BITS 0..3 = LOW DIGIT OF ARRAY 
¿BITS 5..7 AND CARRY = NEXT DIGIT 
ROL A 
ROL A 
ROL A 
ROL A ;NOW NDIGIT IN BITS 0..3 AND 
; LOW DIGIT IN HIGH DIGIT 
STA (RLPTR),Y ;STORE IT 
PLA ‚СЕТ OLD HIGH DIGIT 
AND %0Е ОН ¿CLEAR LOWER DIGIT 
STA NDIGIT ;STORE IN NDIGIT 
INY ¿INCREMENT TO NEXT BYTE 
DEX ; DECREMENT COUNT 
BNE SHIFT ;BRANCH IF NOT DONE 
RTS 
; 
; DATA - 
RETADR: .BLOCK 2 iTEMPORARY FOR RETURN ADDRESS 
AY1PTR: .BLOCK 2 sARRAY 1 ADDRESS 
LENGTH: .BLOCK 1 ;LENGTH OF ARRAYS 
NDIGIT: .BLOCK 1 ¿NEXT DIGIT IN ARRAY 
COUNT: .BLOCK 2 ¿DIVIDE LOOP COUNTER 
АНТОЕ] : . WORD HIDE1 ;ADDRESS OF HIGH DIVIDEND BUFFER 1 
AHIDE2: . WORD HIDE2 ;ADDRESS OF HIGH DIVIDEND BUFFER 2 
HIDE1: .ВЬОСК 255. ;HIGH DIVIDEND BUFFER 1 
HIDE2: .BLOCK 255. ;HIGH DIVIDEND BUFFER 2 


304 дятнмЕтс 


SAMPLE EXECUTION: 


че зр че че чо 


SC0614: 
LDA AYIADR+1 
PHA 
LDA AYlADR 
PHA ¿PUSH АУ] ADDRESS 
LDA AY 2ADR+1 
PHA 
LDA AY 2ADR 
PHA ‚РОЗН AY2 ADDRESS 
LDA #SZAYS 
PHA ; PUSH LENGTH OF ARRAYS 
JSR MPDDIV :MULTIPLE-PRECISION BCD DIVISION 
BRK ;RESULT OF 1522756 / 1234 = 1234 
; IN MEMORY АҮ1 = 34H 
: АУ1+1 = 12H 
; AY1+2 = 00H 
Н AY1+3 = 00H 
Н АҮ1+4 = ООН 
; AY1+5 = 00H 
: AY1+6 = QOH 
JMP SC0614 
SZAYS: . EQU 7 ;LENGTH OF ARRAYS 
AYlADR: .WORD AY1 sADDRESS OF ARRAY 1 (DIVIDEND) 
AY2ADR: .WORD AY2 ;ADDRESS OF ARRAY 2 (DIVISOR) 
АҮ1: 
BYTE 056H 
. BYTE 027H 
. BYTE 052H 
. BYTE 01H 
. BYTE 0 
. BYTE 0 
., BYTE 0 
AY2: 


. BYTE 034H 
. BYTE 012Н 
. BYTE 0 
.BYTE 0 
. BYTE 0 
. BYTE 0 
. BYTE 0 


. END ; PROGRAM 


че че че чо че 


Multiple-Precision Decimal Comparison 
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Compares two multi-byte unsigned 
decimal (BCD) numbers and sets the Carry 
and Zero flags appropriately. The Zero flag is 
set to 1 if the operands are equal and to O if 
they are not equal. The Carry flag is set to O if 


the operand with the address higher in the . 


stack (the subtrahend) is larger then the 
other operand (the minuend); the Carry flag 
is set to 1 otherwise. Thus the flags are set as 


Examples 


]. Data: Length of operands (in bytes) — 6 


Top operand (subtrahend) — 
196528719340 6 


Bottom operand (minuend) - 
4567801532661 
Zero flag = 0 (operands аге not equal) 


Carry flag — 1 (subtrahend is not 
larger than minuend) 


Result: 


2. Data: Length of operands (in bytes) — 6 


Top operand (subtrahend) — 
196528719340), 


Bottom operand (minuend) - 
196528719340 
Zero flag = 1 (operands are equal) 


Carry flag — 1 (subtrahend is not 
larger than minuend) 


Result: 


if the subtrahend had been subtracted from 
the minuend. 

Note: This program is exactly the same as 
Subroutine 6J, the multiple-precision binary 
comparison, since the CMP instruction oper- | 
ates the same in the decimal mode as in the 
binary mode. Hence, see Subroutine 6J for a 
listing and other details. 


3. Data: Length of operands (in bytes) — 6 


Top operand (subtrahend) — 
196528719340). 


Bottom operand (minuend) - 
073785991074 
Zero flag = 0 (operands аге not equal) 


Carry flag — 0 (subtrahend is larger 
than minuend) 


Result: 
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Bit Set (BITSET) © 7A 


Setsa specified bit in a 16-bit word to 1. 
Procedure: The program uses bits 0 
through 2 of register X to determine which 
bit position to set and bit 3 to select a particu- Е я 
ai р Data Memory Required: Two bytes anywhere in 
lar byte of the original word-length data. It RAM (starting at address VALUE). 
then logically ORs the selected byte with a и | 
К а Весовая bi pos on Special Case: Bit positions above 15 will be 
mask containing p interpreted mod 16. That is, for example, bit 
and Os elsewhere. The masks with one 1 bit position 16 is equivalent to bit position 0. 
are available in a table. 


Registers Used: All 
Execution Time: 57 cycles 


Program Size: 42 bytes 


Entry Conditions Exit Conditions 


More significant byte of data in accumulator More significant byte of result in accumulator 
Less significant byte of data in register Y Less significant byte of result in register Y 
Bit number to set in register X 


Examples 

1. Data: (А) = 6Е = 01101110, 2. Data: (А) = 6E,g = 01101110, 
(more significant byte) (more significant byte) 
(less significant byte) (less significant byte) 
(X) = ОС = 1210 (X) = 0216 = 210 
(bit position to set) (bit position to set) 

Result: (A) = 7Е = 01111110, Result: (А) = 6E} = 01101110, 

(more significant byte, (more significant byte) 
bit 12 set to 1) (Y) = 3р = 00111101, 
(Y) = 39,, = 00111001, (less significant byte, bit 2 set to 1) 


(less significant byte) 
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ВТТ5ЕТ: 


7A (BITSET) ВП SET 


Title Bit set 
Name: BITSET 
Purpose: Set a bit in a 16 bit word. 
Entry: Register A - High byte of word 
Register Y = Low byte of word 
Register X - Bit number to set 
Exit: Register A = High byte of word with bit set 
Register Y = Low byte of word with bit set 
Registers used: All 
Time: 57 cycles 
Size: Program 42 bytes 
Data 2 bytes 


;SAVE THE DATA WORD 
STA VALUE+1 
STY VALUE 


;BE SURE THAT THE BIT NUMBER IS BETWEEN 0 AND 15 
TXA 


AND $0FH 

;DETERMINE WHICH BYTE AND WHICH BIT IN THAT BYTE 

TAX ;SAVE BIT NUMBER IN X 

AND $07H ;THE LOWER 3 BITS OF THE BIT NUMBER 
TAY ; IS THE BIT IN THE BYTE, SAVE IN Y 
TXA ;RESTORE BIT NUMBER 

LSR A ;DIVIDE BY 8 TO DETERMINE BYTE 

LSR A 

LSR A 

TAX ;SAVE BYTE NUMBER (0 OR 1) IN X 
;SET THE BIT 

LDA VALUE, X ;GET THE BYTE 

ORA BITMSK,Y ;SET THE BIT 

STA VALUE, X 


;RETURN THE RESULT IN REGISTERS A AND Y 


LDA VALUE+1 
LDY VALUE 
RTS 
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BITMSK: .BYTE 00000001B ;BIT 0 = 1 
.BYTE 00000010B ;BIT 1 = 1 
.BYTE 00000100B ;BIT 2 = 1 
.BYTE 000010008 ;BIT 3 = 1 
.BYTE 00010000B ВІТ 4-1 
.BYTE 00100000B ;BIT 5 = 1 
.BYTE 01000000B ;BIT 6 = 1 
.BYTE 10000000B ;BIT 7 = 1 
;DATA 
VALUE: .BLOCK 2 ;TEMPORARY FOR THE DATA WORD 
| 
| SAMPLE EXECUTION ; 
SC0701: 
LDA VAL+1 ;LOAD DATA WORD INTO A,Y 
LDY VAL 
LDX BITN ;GET BIT NUMBER IN X 
JSR BITSET ;SET THE BIT 
BRK ;RESULT OF VAL = 5555H AND BITN = OF 
; REGISTER A = D5H, REGISTER Y = 55H 
JMP 5с0701 


;TEST DATA, CHANGE FOR DIFFERENT VALUES 
VAL: . WORD 5555H 
BITN: . BYTE OFH 


. END ; PROGRAM 


Bit Clear (BITCLR) 7B 


Clears a specified bit in a 16-bit word. 

Procedure: the program uses bits 0 through 
2 of register X to determine which bit posi- 
tion to clear and bit 3 to select a particular Program Size: 42 bytes : | 
byte of the original word-length data. It then Data Memory Required: Two bytes anywhere in 
logically ANDs the selected byte with a mask RAM сила at address VALUE): 
containing a 0 in the chosen bit position and. 


Registers Used: All 
Execution Time: 57 cycles 


Special Case: Bit positions above 15 will be 
| à interpreted mod 16. That is, for example, bit 
15 elsewhere. The masks with one 0 bit are position 16 is equivalent to bit position 0. 


available in a table. 


Entry Conditions Exit Conditions 


More significant byte of data in accumulator More significant byte of result in accumulator 
Less significant byte of data in register Y Less significant byte of result in register Y 
Bit number to clear in register X 


Examples 

1. Data: (А) = 6E; = 01101110, 2. Data: (A) = 6Е к = 01101110, 
(more significant byte) (more significant byte) 
(less significant byte) (less significant byte) 
(X) = 0Е = 1410 (X) = 04, = 410 
(bit position to clear) (bit position to clear) 

Result: (А) = 2Е6 = 01101110, Result: (А) = 6Е = 01101110, 

(more significant byte, bit 14 cleared) (more significant byte) 
(less significant byte) (less significant byte, bit 4 cleared) 
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31 0 BIT MANIPULATIONS AND SHIFTS 


: Title Bit clear ; 
е Name: BITCLR ; 
Н ; 
Н ; 
Purpose: Clear a bit in a 16 bit word. 
Entry: Register High byte of word 


Register 


A 

Y Low byte of word 
Register X 

A 

Y 


Bit number to clear 


Exit: Register 
Register 


High byte of word with bit cleared 
Low byte of word with bit cleared 


Registers used: All 


Time: 57 cycles 
Size: Program 42 bytes 
Data 2 bytes 


me че чо че чо ча че чо че че че чо че TO ча чо че че 
чо че че че чо чо "9 чо чо чо че че че ча че че чо че 


BITCLR: 
; SAVE THE DATA WORD 
STA VALUE+1 
STY VALUE 
;BE SURE THAT THE BIT NUMBER IS BETWEEN 0 AND 15 
TXA 
AND #ОРН 
;DETERMINE WHICH BYTE AND WHICH ВІТ IN THAT BYTE 
TAX ; SAVE BIT NUMBER IN X 
AND #0 7H ;THE LOWER 3 BITS OF THE BIT NUMBER 
TAY ; IS THE BIT IN THE BYTE, SAVE IN Y 
TXA ;RESTORE BIT NUMBER 
LSR A ;DIVIDE BY 8 TO DETERMINE BYTE 
LSR A 
LSR A 
TAX ;SAVE BYTE NUMBER (0 OR 1) IN X 
;CLEAR THE BIT 
LDA VALUE , X ;GET THE BYTE 
AND BITMSK,Y ;CLEAR THE BIT 
STA VALUE,X 


¿RETURN THE RESULT IN REGISTERS А AND Y 


LDA VALUE+1 
LDY VALUE. 
RTS 
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BITMSK: .BYTE 11111110В ;BIT 0 = 0 

.BYTE 11111101B ;BIT 1 = 0 

.BYTE 11111011B ;BIT 2 = 0 

.ВУТЕ 11110111B ;BIT 3 = 0 

.BYTE 111011118 ;BIT 4 = 0 

.BYTE 11011111B ;BIT 5 = 0 

.BYTE 10111111B BIT 6 = 0 

.BYTE 01111111B ;BIT 7 = 0 
;DATA 
VALUE: .BLOCK 2 ;TEMPORARY FOR THE DATA WORD 
E ; 
| | 
; ЗАМРЬЕ ЕХЕСОТТОМ : 
: ; 
; ; 
SC0702: 

LDA VAL+1 | ;LOAD DATA WORD INTO A,Y 

LDY VAL 

LDX BITN ;GET BIT NUMBER IN X 

JSR BITCLR ;CLEAR THE BIT 

BRK ;RESULT OF VAL = 5555H AND BITN = 00H IS 

; REGISTER A = 55H, REGISTER Y = 54H 
JMP SC0702 


;TEST DATA, CHANGE FOR DIFFERENT VALUES 
VAL: . WORD 5555H 
BITN: . BYTE 0 


. END ; PROGRAM 


Bit Test (BITTST) 


Sets the Carry flag to the value of a 
specified bit in a 16-bit word. 

Procedure: The program uses bits 0 
through 2 of register X to determine which 
bit position to test and bit 3 to select a partic- 
ular byte of the original word-length data. It 
then logically ANDs the selected byte with a 
mask containing a 1 in the chosen bit position 
and Os elsewhere. Since the result is zero if 
the tested bit is 0 and non-zero if the tested 
bit is 1, the Zero flag is set to the complement 
of the tested bit. Finally, the program sets the 


Entry Conditions 


More significant byte of data in accumulator 
Less significant byte of data in register Y 


Bit position to test in register X 


7С 


Registers Used: All 
Execution Time: Approximately 50 cycles 
Program Size: 37 bytes 


Data Memory Required: Two bytes anywhere in 
RAM (starting at address VALUE). 


Special Case: Bit positions above 15 will be 
interpreted mod 16. That is, for example, bit 
position 16 is equivalent to bit position O. 


Carry flag to the complement of the Zero 
flag, thus making it the same as the tested bit 
through a double inversion. 


Exit Conditions 


Carry set to value of specified bit position in 
data. 


Examples 


(A) = 6Е = 01101110, 
(more significant byte) 
(less significant byte) 
(X) = ОВ, = 11,0 

(bit position to test) 


1. Data: 


Result: Carry = 1 (value of bit 11) 
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2. Data: 
(А) = 6Е = 01101110, 
(more significant byte) 
(Y) = 396 = 00111001, 
(less significant byte) 
(X) = 06,6 = 610 
(bit position to test) 


Result: Carry = 0 (value of bit 6) 


че че чо чо 


чо чо че че TO че чо че че чо че чо че че чо ТГ. че 


BITTST: 


EXIT: 


Title 
Мапе: 


Purpose: 


Entry: 


Exit: 
Registers used: 
Time: 


Size: 


7C (ВІТТ5Т) BIT TEST 


Bit test 
BITTST 


Test a bit in a 16 bit word. 


Register A - High byte of word 
Register Y - Low byte of word 
Register X - Bit number to test 


CARRY = value of the tested bit 
All 
Approximately 50 cycles 


Program 37 bytes 
Data 2 bytes 


;SAVE THE DATA WORD 


;BE SURE THAT THE BIT NUMBER IS BETWEEN 0 AND 15 


;DETERMINE WHICH BYTE AND WHICH BIT IN THAT BYTE 


;SAVE BIT NUMBER IN X 

;THE LOWER 3 BITS OF THE BIT NUMBER 
; IS THE BIT IN THE BYTE, SAVE IN Y 
;RESTORE BIT NUMBER 

;DIVIDE BY 8 TO DETERMINE BYTE 


;SAVE BYTE NUMBER (0 OR 1) IN X 


;SET THE ZERO FLAG TO THE COMPLEMENT OF THE BIT 


STA VALUE+1 
STY VALUE 
TXA 

AND #0FH 
TAX 

AND #07H 
TAY 

TXA 

LSR A 

LSR A 

LSR A 

TAX 

LDA VALUE, X 
AND BITMSK,Y 


;GET THE BYTE 
;GET THE BIT 
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;IF THE ВІТ IS 0 REGISTER A IS 0 AND Z IS 1 


;ELSE REGISTER A IS NOT 0 AND 2 IS 0 


;SET THE CARRY FLAG TO THE COMPLEMENT OF THE ZERO FLAG 


CLC 
BNE EXIT 
SEC 


RTS 


;ASSUME THE BIT IS 0 
;BRANCH IF THE BIT IS O0 
;ELSE THE BIT WAS 1 
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BITMSK: .BYTE 00000001B ;BIT 0 = 1 
. BYTE 00000010B ¿BIT 1 = 1 
. BYTE 00000100B BIT 2-1 
. BYTE 00001000B ;BIT 3 = 1 
. BYTE 00010000B sBIT 4 51 
e BYTE 00100000B іВІТ 5 = 1 
. BYTE 01000000B sBIT 6 = 1 
. BYTE 10000000B BIT 7 = 1 
; DATA 
VALUE: .BLOCK 2 TEMPORARY FOR THE DATA WORD 
; SAMPLE EXECUTION 
, 
SC0703: 
LDA VAL+1 ¿LOAD DATA WORD INTO A,Y 
LDY VAL 
LDX BITN ‚СЕТ BIT NUMBER IN X 
JSR BITTST ;TEST THE BIT 
BRK ¿RESULT ОЕ VAL = 5555H AND BITN = 01 IS 
¿CARRY = 0 


JMP $C0703 
;TEST DATA, CHANGE FOR DIFFERENT VALUES 
VAL: .WORD 5555H 
BITN: . BYTE ОТН 


. END ; PROGRAM 


=e e че че че 


Bit Field Extraction (BFE) 


7D 


Extracts a field of bits from a word and 
returns the field in the least significant bit 
positions. The width of the field and its start- 
ing bit position are specified. 

Procedure: The program obtains a mask 
with the specified number of 1 bits from a 


Registers Used: All 


Execution Time: 34 * STARTING BIT POSI- 
TION plus 138 cycles overhead. The starting bit 
position determines the number of times the 
mask must be shifted left and the bit field right. 
For example, if the field starts in bit 6, the execu- 
tion time is 

34 * 6 + 138 = 204 + 138 = 342 cycles 


Program Size: 134 bytes 


Data Memory Required: Six bytes anywhere in 
RAM for the index (one byte at address 
INDEX), the width of the field (one byte at 
address WIDTH), the data value (two bytes start- 


Entry Conditions 


Order in stack (starting from the top) 


Less significant byte of return address 
More significant byte of return address 


Starting (lowest) bit position of field 
Number of bits in the field 


Less significant byte of data value 
More significant byte of data value 


table, shifts the mask left to align it with the 
specified starting bit position, and obtains the 
field by logically ANDing the mask and the 
data. It then normalizes the bit field by shift- 
ing it right so that it starts in bit 0. 


ing at address VALUE), and the mask (two bytes 
starting at address MASK). 


Special Cases: 

1. Requesting a field that would extend 
beyond the end of the word causes the program 
to return with only the bits through bit 15. That 
is, no wraparound is provided. If, for example, 
the user asks for a 10-bit field starting at bit 8, the 
program will return only 8 bits (bits 8 through 15). 


2. Both the starting bit position and the num- 
ber of bits in the field are interpreted mod 16. 
That is, for example, bit position 17 is equivalent 
to bit position 1 and a field of 20 bits is equivalent 
to a field of 4 bits. 


Exit Conditions 


More significant byte of bit field in 
accumulator 


Less significant byte of bit field in register Y 


—————'u—Ó————— ÓÉÁSOAIGSGLLáLALLUULUSQ ә —-—-:-:-:Е:®—-—---:Е:ЫъЪъ------ 


Examples 


1. Data: Value = Е67С\ = 1111011001111100, 
Starting bit position = 4 


Number of bits in the field = 8 


Result: Ви field = 0067 = 0000000001100111; 


We have extracted 8 bits from the original 
data, starting with bit 4 (that is, bits 
4 through 11). 
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2. Data: Value = А204, = 1010001011010100, Result: Ви field = 000B,, = 0000000000001011, 
| Starting bit position = 6 We have extracted 5 bits from the 
Number of bits in the field — 5 original data, starting with bit 6 (that is, 


bits 6 through 10). 


7 Title Bit Field Extraction ; 
8 Name: BFE 2 
; Н 
; ; 
Purpose: Extract a field of bits from a 16 bit word and 


return the field normalized to bit 0. 

NOTE: IF THE REQUESTED FIELD IS TOO LONG, THEN 
ONLY THE BITS THROUGH BIT 15 WILL BE 
RETURNED. FOR EXAMPLE IF A 4 BIT FIELD IS 
REQUESTED STARTING AT BIT 15 THEN ONLY 1 
BIT (BIT 15) WILL BE RETURNED. 


Entry: TOP OF STACK 
Low byte of return address, 
High byte of return address, 
Starting (lowest) bit position in the field 
(0..15), 
Number of bits in the field (1..16), 
Low byte of data word, 
High byte of data word, 


High byte of field 
Low byte of field 


Exit: Register A 
Register Y 


Registers used: All 


Time: 138 cycles overhead plus 
(34 * starting bit position) cycles 


Size: Program 134 bytes 
Data 6 bytes 


me че че TO че че че WE чо че чө me чо че чо че WO 90 че че че че “6 чо чо WO WO че чо че 


о чо Э. че че WE че че че чо че «че we w чо че 9 че че че ZO че че We "9 чо WE чо че че 


ВЕЕ: 


¿SAVE RETURN ADDRESS IN Ү,Х 
PLA 
TAY 
PLA 
TAX 


SHFTLP: 


GETFLD: 
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;GET THE STARTING BIT POSITION OF THE FIELD 


PLA 
AND %0ЕН ;MAKE SURE INDEX IS А VALUE BETWEEN 0 AND 15 
STA INDEX ;SAVE INDEX 


;GET THE NUMBER OF BITS IN THE FIELD (MAP FROM 1..WIDTH TO 0..WIDTH-1) 
PLA 


SEC 

SBC #1 ;SUBTRACT 1 
AND %0ЕН ;MAKE SURE ІТ IS 0 ТО 15 
5ТА WIDTH ¿SAVE WIDTH 
;GET THE DATA WORD 

PLA 

STA VALUE 

PLA 

STA VALUE+1 

;RESTORE THE RETURN ADDRESS 

TXA 

PHA 

TYA 

PHA 


; CONSTRUCT THE MASK 
; INDEX INTO THE MASK ARRAY USING THE WIDTH PARAMETER 
LDA WIDTH 


ASL A ;MULTIPLY BY 2 SINCE MASKS ARE WORD-LENGTH 
TAY 

LDA MSKARY,Y 

STA MASK 

INY 

LDA MSKARY,Y 

STA МА5К41 


;SHIFT MASK LEFT INDEX TIMES TO ALIGN ІТ WITH THE BEGINNING 
; OF THE FIELD 


LDY INDEX 

BEQ GETFLD ;BRANCH IF INDEX = 0 

ASL MASK ;SHIFT LOW BYTE, CARRY := BIT 7 
ROL МА5К41 ;ROTATE HIGH BYTE, ВІТ 0 :- CARRY 
DEY 

BNE SHFTLP ;CONTINUE UNTIL INDEX = 0 


;GET THE FIELD BY ANDING THE MASK AND THE VALUE 


LDA VALUE 

AND MASK ;AND LOW BYTE OF VALUE WITH MASK 
STA VALUE ;STORE IN VALUE 

LDA VALUE+1 

AND MASK+1 ;AND HIGH BYTE OF VALUE WITH MASK 


STA VALUE+1 ;STORE IT 
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;NORMALIZE THE FIELD TO BIT 0 BY SHIFTING RIGHT INDEX TIMES 


LDY INDEX 
BEQ EXIT ¿BRANCH IF INDEX = 0 
NORMLP: 
LSR VALUE+1 ¿SHIFT HIGH BYTE RIGHT, CARRY := BIT 0 
ROR VALUE ? КОТАТЕ LOW BYTE RIGHT, BIT 7 := CARRY 
DEY 
BNE NORMLP ;CONTINUE UNTIL DONE 
EXIT: 
LDY VALUE 
LDA VALUE+1 
RTS 
;MASK ARRAY WHICH IS USED TO CREATE THE MASK 
MSKARY: 
. WORD 0000000000000001B 
. WORD 0000000000000011B 
. WORD 0000000000000111B 
. WORD 0000000000001111B 
.WORD 0000000000011111B 
. WORD 0000000000111111B 
. WORD 0000000001111111B 
. WORD 0000000011111111B 
. WORD 0000000111111111B 
. WORD 0000001111111111B 
. WORD 0000011111111111B 
.WORD 0000111111111111B 
. WORD 0001111111111111B 
. WORD 0011111111111111B 
. WORD 0111111111111111B 
. WORD 1111111111111111B 
INDEX: .BLOCK 1 ;INDEX INTO WORD 
WIDTH: .BLOCK 1 WIDTH OF FIELD (NUMBER OF BITS) 
VALUE: .BLOCK 2 ¿DATA WORD TO EXTRACT THE FIELD FROM 
MASK: ‚ВЬОСК 2 ‚ТЕМРОВАКУ FOR CREATING THE MASK 


SAMPLE EXECUTION: 


me чо че TO WO 


5С0704: 
LDA VAL+1 
PHA 
LDA VAL | 
PHA ;PUSH THE DATA WORD 
LDA NBITS 
PHA ;PUSH FIELD WIDTH (NUMBER OF BITS) 


LDA POS 


me че o че ve 
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PHA ;PUSH INDEX TO FIRST BIT OF THE FIELD 
JSR BFE ; EXTRACT 
BRK ;RESULT FOR VAL = 1234H, NBITS = 4, POS = 4 IS 


; REGISTER A = 0, REGISTER Y = 3 
JMP 5С0704 


; TEST DATA, CHANGE FOR OTHER VALUES 


VAL: .WORD 012348 
NBITS: .BYTE 4 
POS: .BYTE 4 


. END ; PROGRAM 


Bit Field Insertion (ВЕ!) ТЕ 


Inserts a field of bits into a word. The width 
of the field and its starting (lowest) bit posi- 
tion are specified. 

Procedure: The program obtains a mask 
with the specified number of 0 bits from a 
table. It then shifts the mask and the bit field 


left to align them with the specified starting 
bit position. It logically ANDs the mask and 
the original data word, thus clearing the 
required bit positions, and then logically ORs 
the result with the shifted bit field. 


Registers Used: All 


Execution Time: 31 * STARTING BIT POSI- 
TION plus 142 cycles overhead. The starting bit 
position of the field determines how many times 
the mask and the field must be shifted left. For 
example, if the field is inserted starting in bit 10, 
the execution time is 


31 * 10 + 142 = 310 + 142 = 452 cycles. 


Program Size: 130 bytes 


Data Memory Required: Eight bytes anywhere in 
RAM for the index (one byte at address 
INDEX), the width of the field (one byte at 
address WIDTH), the value to be inserted (two 
bytes starting at address INSVAL), the data 


value (two bytes starting at address VALUE), 
and the mask (two bytes starting at address 
MASK). 


Special Cases: 

1. Attempting to insert a field that would 
extend beyond the end of the word causes the 
program to insert only the bits through bit 15. 
That is, no wraparound is provided. If, for exam- 
ple, the user attempts to insert a 6-bit field start- 
ing at bit 14, only 2 bits (bits 14 and 15) are 
actually replaced. 

2. Both the starting bit position and the length 
of the bit field are interpreted mod 16. That is, for 
example, bit position 17 is the same as bit posi- 
tion 1 and a 20-bit field is the same as a 4-bit field. 


Entry Conditions Exit Conditions 
Order in stack (starting from the top) 
More significant byte of result in accumulator 
Less significant byte of return address Less significant byte of result in register Y 
More significant byte of return address 
The result is the original data value with the 
bit field inserted, starting at the specified 


bit position. 


Lowest bit position (starting position) of field 
Number of bits in the field ` 


Less significant byte of bit field (value to 
insert) 
More significant byte of bit field (value to 


insert) 


Less significant byte of original data value 
More significant byte of original data value 
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Examples 
1. Data: Value = Е67С̧ = 1111011001111100, 2. Data: Value = А204, = 1010001011010100, 

Starting bit position = 4 Starting bit position = 6 

Number of bits in the field = 8 Number of bits in the field = 5 

Bit field = 008B,, = 0000000010001011, Bit field = 0015 = 0000000000010101, 

Result: Value with bit field inserted = А5546 
Result: Value with bit field inserted = Е8ВС | = 1010010101010100, 

= 1111100010111100, The 5-bit field has been 

The 8-bit field has been inserted inserted into the original value starting at 

into the original value starting at bit 4 bit 6 (that is, into bits 6 through 10). 

(that is, into bits 4 through 11). Those five bits were 01011, (0B,&) and 

are now 10101, (15,9). 

} Title Bit Field Insertion ; 
; Name: BFI ; 
P H 
P ; 
Н ; 
} Ригрозе: Insert a field of bits which is normalized to H 
; bit 0 into a 16 bit word. ; 
H NOTE: IF THE REQUESTED FIELD IS TOO LONG, THEN ; 
Н ONLY THE BITS THROUGH ВІТ 15 WILL ВЕ ; 
; INSERTED. FOR EXAMPLE IF А 4 BIT FIELD IS ; 
P TO BE INSERTED STARTING AT BIT 15 THEN ; 
; ONLY THE FIRST BIT WILL BE INSERTED AT ; 
; . BIT 15. ; 
P ; 
; Entry: TOP OF STACK ; 
; Low byte of return address, ; 
; High byte of return address, 2 
; Bit position at which inserted field will ; 
; Start (0..15), ; 
; Number of bits in the field (1..16), ; 
; Low byte of value to insert, ; 
; High byte of value to insert, ; 
; Low byte of value, ; 
; High byte of value ; 
; ; 
; Exit: Register A = High byte of value with field ; 
; ‚ inserted ; 
; Register Y - Low byte of value with field ; 
; inserted ; 
; ; 
; ; 


Registers used: All 
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че че че че че BE BO че 


ВЕТ: 


Time: 142 cycles overhead plus 
(31 * starting bit position) cycles 


Size: Program 130 bytes 
Data 8 bytes 


;SAVE RETURN ADDRESS IN Y,X 


;GET THE LOWEST BIT NUMBER OF THE FIELD 
PLA 


AND #ОЕН ; МАКЕ SURE INDEX IS A VALUE BETWEEN 0 AND 15 
STA INDEX ¿SAVE INDEX 

СЕТ THE NUMBER OF BITS IN THE FIELD (MAP FROM 1..WIDTH ТО 0..WIDTH-1) 
PLA 

SEC 

SBC #1 ;SUBTRACT 1 

AND #ОЕН ;MAKE SURE IT IS 0 TO 15 

STA WIDTH ;SAVE WIDTH 


;GET THE VALUE TO BE INSERTED (BIT FIELD) 
PLA 


STA INSVAL 

PLA 

STA INSVAL+1 
;GET THE DATA WORD 
PLA 

STA VALUE 

PLA 

STA VALUE+1 
;RESTORE THE RETURN ADDRESS 
TXA 

PHA 

TYA 

PHA 


;CONSTRUCT THE MASK 


; INDEX INTO THE MASK ARRAY USING THE WIDTH PARAMETER 


LDA WIDTH 

ASL A ¿MULTIPLY BY 2 SINCE MASKS ARE WORD-LENGTH 
TAY 

LDA MSKARY,Y 

STA MASK 

INY 

LDA MSKARY, У 


STA MASK+1 


че че ЭМ че “Г че що “че 


SHFTLP: 


INSERT: 


MSKARY: 


INDEX: 
WIDTH: 
INSVAL: 
VALUE: 
MASK: 
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;SHIFT MASK AND BIT FIELD LEFT INDEX TIMES TO ALIGN THEM 
; WITH THE BEGINING OF THE FIELD 


LDY 
BEQ 


SEC 
ROL 


ROL 
ASL 
ROL 
DEY 
BNE 


INDEX 

INSERT ;BRANCH IF INDEX = 0 
;FILL THE MASK WITH ONES 

MASK ;ROTATE LOW BYTE SHIFTING A 1 TO BIT 0 AND 
; BIT 7 TO CARRY 

МАЅК +1 ;ROTATE HIGH BYTE, ВІТ 0 :- CARRY 

INSVAL | ;SHIFT THE INSERT VALUE SHIFTING IN ZEROS 

INSVAL+1 

SHFTLP ;CONTINUE UNTIL INDEX = 0 


;USE THE MASK TO ZERO THE FIELD AND THEN OR IN THE INSERT VALUE 


; RETURN 


RTS 


VALUE 

MASK ;AND LOW BYTE OF VALUE WITH MASK 

INSVAL | 
;REGISTER Y = LOW BYTE OF THE NEW VALUE 

VALUE+1 

MASK+1 ;AND HIGH BYTE OF VALUE WITH MASK 

INSVAL+1 ;REGISTER A = HIGH BYTE OF THE NEW VALUE 


;MASK ARRAY WHICH IS USED TO CREATE THE MASK 


. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 


. BLOCK 
. BLOCK 
. BLOCK 
. BLOCK 
. BLOCK 


1111111111111110B 
1111111111111100B 
1111111111111000B 
1111111111110000B 
1111111111100000B 
1111111111000000B 
1111111110000000B 
1111111100000000B 
1111111000000000B 
1111110000000000B 
1111100000000000B 
1111000000000000B 
1110000000000000B 
1100000000000000B 
1000000000000000B 
0000000000000000B 


;INDEX INTO WORD 

;WIDTH OF FIELD 

; VALUE TO INSERT 

; DATA WORD 

; TEMPORARY FOR CREATING THE MASK 


ho to to He 
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че чо че че че 


5С0705: 


JMP 


SAMPLE EXECUTION: 


VAL+1 ;PUSH THE DATA WORD 

VAL 

VALINS+1 ;PUSH THE VALUE TO INSERT 

VALINS 

NBITS ;PUSH THE FIELD WIDTH 

POS ;PUSH THE STARTING POSITION OF THE FIELD 
BFI ; INSERT 


;RESULT FOR VAL = 1234H, VALINS = OEH, 
; NBITS = 4, POS = OCH IS 
; REGISTER A = E2H, REGISTER Y = 34H 


$C0705 


;TEST DATA, CHANGE FOR OTHER VALUES 


VAL: . WORD 
VALINS: .WORD 
NBITS: .BYTE 
POS: . BYTE 


. END 


01234H 
ОЕН 
04H 
OCH 


; PROGRAM 


чо чо че WE че 


Multiple-Precision Arithmetic Shift Right 


(MPASR) 


Shifts a multi-byte operand right 
arithmetically by a specified number of bit 
positions. The length of the number (in 
bytes) is 255 or less. The Carry flag is set to 
the value of the last bit shifted out of the 
rightmost bit position. The operand is stored 
with its least significant byte at the lowest 


Registers Used: All 


Execution Time: NUMBER OF SHIFTS * (18 + 
18 * LENGTH OF OPERAND IN BYTES) + 85 
cycles. 


If, for example, NUMBER OF SHIFTS = 
6 and LENGTH OF OPERAND IN BYTES - 8, 
the execution time is 


6* (18 + 18 * 8) + 85 = 6* 162 + 85 = 1057 
cycles 


Program Size: 69 bytes 


Data Memory Required: Three bytes anywhere 
in RAM plus two bytes on page 0. The three bytes 
anywhere in RAM are temporary storage for the 


Entry Conditions 


Order in stack (starting from the top) 


Less significant byte of return address 
More significant byte of return address 


Number of shifts (bit positions) 
Length of the operand in bytes 


Less significant byte of starting address of 
operand (address of its least significant 
byte) 

More significant byte of starting address of 
operand (address of its least significant 
byte) 


7F 


address. 

Procedure: The program obtains the sign 
bit from the most significant byte, shifts that 
bit to the Carry, and then rotates the entire 
operand right one bit, starting with the most 
significant byte. It repeats the operation for 
the specified number of shifts. 


number of shifts (one byte at address NBITS) 
and the length of the operand (one byte at 
address LENGTH) and the most significant byte 
of the operand (one byte at address MSB). The 
two bytes on page 0 hold a pointer to the operand 
(starting at address PTR,00D0 in the listing). 


Special Cases: 


1. If the length of the operand is zero, the pro- 
gram exits immediately with the operand 
unchanged and the Carry flag cleared. 

2. If the number of shifts is zero, the program 
exits immediately with the operand unchanged 
and the Carry flag cleared. 


Exit Conditions 


Operand shifted right arithmetically by the 
specified number of bit positions. The origi- 
nal sign bit is extended to the right. The 
Carry flag is set according to the last bit 
shifted from the rightmost bit position (or 
cleared if either the number of shifts or the 
length of the operand is zero). 


325 


326 BIT MANIPULATIONS AND SHIFTS 


Examples 


1. 


94 че чо чо 


me че че че че че че че че че че WO wo чо че че че че че WH че че че WO че че me че че че чо 


Data: 


Result: 


Length of operand (in bytes) = 08 2. Data: 
Operand = 85А4С719ЕЕ06741Е, с 
Number of shifts = 04 


Shifted operand = F85A4C719FE06741 с. Result: 
This is the original operand shifted right 

four bits arithmetically (the four most 

significant bits thus all take on the value 

of the original sign bit, which was 1). 


Carry = 1, since the last bit shifted from 
the rightmost bit position was 1. 


Length of operand (in bytes) = 04 
Орегапд = 3Е6А42Г 3,6 
Number of shifts — 03 


Shifted operand = 07Е0485А ,,. 
This is the original operand shifted 
right three bits arithmetically (the 
three most significant bits thus all 
take on the value of the original sign 
bit, which was 0). 


Carry = 0, since the last bit shifted 
from the rightmost bit position was 0. 


Title Multiple-precision arithmetic shift right ; 
Мате: MPASR ; 
; 
; 
Purpose: Arithmetic shift right a multi-byte operand 
N bits. = 
Entry: TOP OF STACK 


Low byte of return address, 

High byte of return address, 

Number of bits to shift, 

Length of the operand in bytes, 

Low byte of address of the operand, 
High byte of address of the operand 


The operand is stored with ARRAY [0] as its 
least significant byte and ARRAY [LENGTH -1] 
its most significant byte. 


Exit: Operand shifted right with the most significant 


bit propagated. 


CARRY := Last bit shifted from least 
significant position. 


Registers used: All 


Time: 85 cycles overhead plus 


((18 * length) * 18) cycles per shift 


Size: Program 69 bytes 
Data 3 bytes plus 


2 bytes in page zero 


me че че чо ча че чо че че чо 99 че че me we че we BO BE зо че NS ча че ча Чо WH Че че e зо 
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; EQUATES 

PTR: .EQU ODOH ;РАСЕ ZERO FOR POINTER ТО OPERAND 
MPASR: 

;SAVE RETURN ADDRESS 

PLA 

TAY 

PLA 

TAX 

;GET NUMBER OF BITS 

PLA 

STA NBITS 

? СЕТ LENGTH OF OPERAND 

PLA 

STA LENGTH 

;GET STARTING ADDRESS OF THE OPERAND 

PLA 

STA PTR 

PLA 

STA PTR+1 

;RESTORE THE RETURN ADDRESS 

TXA 

PHA 

TYA 

PHA ;RESTORE RETURN ADDRESS 

;INITIALIZE 

CLC ;CLEAR CARRY 

LDA LENGTH 

BEG EXIT ;EXIT IF LENGTH OF OPERAND IS 0. 

LDA NBITS 

BEQ EXIT ;EXIT IF NUMBER OF BITS TO SHIFT IS 0 

; WITH CARRY CLEAR 

;DECREMENT POINTER SO THAT THE LENGTH BYTE MAY BE USED BOTH 

; AS A COUNTER AND THE INDEX 

LDA PTR 

BNE MPASR1 

DEC PTR+1 ;DECREMENT HIGH BYTE IF A BORROW IS NEEDED 
МРАЗК1: DEC PTR ;ALWAYS DECREMENT LOW BYTE 

;LOOP ON THE NUMBER OF SHIFTS TO PERFORM 

LDY LENGTH 

LDA (PTR) ,Y ;GET THE MOST SIGNIFICANT BYTE 

STA MSB :5АУЕ IT FOR THE SIGN 
ASRLP: 

LDA MSB ;GET THE MOST SIGNIFICANT BYTE 

ASL A ;SHIFT BIT 7 TO CARRY FOR SIGN EXTENSION 

LDY LENGTH ;Ү = INDEX TO LAST BYTE AND THE COUNTER 


;SHIFT RIGHT ONE BIT 
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LOOP: 
LDA (PTR) ,Y ;GET NEXT BYTE 
ROR A ; ROTATE BIT 7 :- CARRY, CARRY := BIT 0 
STA (PTR),Y sSTORE NEW VALUE 
DEY :DECREMENT COUNTER 
BNE LOOP CONTINUE THROUGH ALL THE BYTES 
; DECREMENT NUMBER OF SHIFTS 
DEC NBITS ‚ОБСВЕМЕМТ SHIFT COUNTER 
BNE ASRLP sCONTINUE UNTIL DONE 
EXIT: 
RTS 
zDATA SECTION 
NBITS: .BLOCK 1 sNUMBER OF BITS TO SHIFT 
LENGTH: .BLOCK 1l ;LENGTH OF OPERAND IN BYTES 
MSB: BLOCK 1 sMOST SIGNIFICANT BYTE 


оо ор че че WO 


SC0706: 


JMP 


, 

; DATA SECTION 
SZAY: . EQU 
SHIFTS: .BYTE 
AYADR: .WORD 
AY ` . BYTE 


. END 


SAMPLE EXECUTION: 


me чо че TO че 


AYADR*1 ;PUSH STARTING ADDRESS OF OPERAND 


AYADR 


#S ZAY ;PUSH LENGTH OF OPERAND 


SHIFTS ;PUSH NUMBER OF SHIFTS 


MPASR ;SHIFT 
:RESULT OF SHIFTING AY = EDCBA987654321H, 4 BITS IS 
AY = FEDCBA98765432H, C=0 


a 
; IN MEMORY AY = 032H 
; AY41 = 054H 
; ` AY+2 = 076H 
;  AY43 = 098H 
; AY+4 = OBAH 
; AY+5 = ODCH 
; AY+6 = OFEH 

SC0706 

7 ;LENGTH OF OPERAND 

4 ;NUMBER OF SHIFTS 

AY ;STARTING ADDRESS OF OPERAND 


21H, 43H, 65H, 87H, OA9H, OCBH, OEDH 


; PROGRAM 


Multiple-Precision Logical Shift Left (MPLSL) 


7G 


Shifts a multi-byte operand left logically 
by a specified number of bit positions. The 
length of the operand (in bytes) is 255 or less. 
The Carry flag is set to the value of the last bit 
shifted out of the leftmost bit position. The 
operand is stored with its least significant 


Registers Used: All 


Execution Time: NUMBER OF SHIFTS * (16 + 
20 * LENGTH OF OPERAND IN BYTES) + 73 
cycles. 


If, for example, NUMBER OF SHIFTS = 4 
and LENGTH OF OPERAND IN BYTES = 6 


(i.e., a 4-bit shift of a byte operand) the execution 
time is 


4 » (6 + 20* 6) + 73 = 4» (136) + 73 = 
617 cycles. 


Data Memory Required: Two bytes anywhere in 
RAM plus two bytes on page 0. The two bytes 


Entry Conditions 


Order in stack (starting from the top) 


Less significant byte of return address 
More significant byte of return address 


Number of shifts (bit positions) 
Length of the operand in bytes 


Less significant byte of starting address of 
operand (address of its least significant 
byte) 

More significant byte of starting address of 
operand (address of its least significant 
byte) 


byte at the lowest address. 

Procedure: The program clears the Carry 
initially (to fill with a 0 bit) and then rotates 
the entire operand left one bit, starting with 
the least significant byte. It repeats the opera- 
tion for the specified number of shifts. 


anywhere in RAM are temporary storage for the 
number of shifts (one byte at address NBITS) 
and the length of the operand in bytes (one byte 
at address LENGTH). The two bytes on page 0 
hold a pointer to the operand (starting at address 
PTR, 00D0,, in the listing). 

Special Cases: 

1. If the length of the operand is zero, the pro- 
gram exits immediately with the operand 
unchanged and the Carry flag cleared. 

2. If the number of shifts is zero, the program 
exits immediately with the operand unchanged 
and the Carry flag cleared. 


Exit Conditions 


Operand shifted left logically by the specified 
number of bit positions (the least significant 
bit positions are filled with zeros). The Carry 
flag is set according to the last bit shifted 
from the leftmost bit position (or cleared if 
either the number of shifts or the length of 
the operand is zero). 
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Examples 
1. Data: Length of operand (in bytes) = 08 2. Data: Length of operand (in bytes) = 04 
Operand = 85А4С719ЕЕО6741Е 5 Operand = 3F6A42D3,, 
Number of shifts = 04 Number of shifts = 03 
Result: Shifted operand = 5А4С719ЕЕ06741Е0 (. Result: Shifted operand = FB521698,¢. This is 
This is the original operand shifted the original operand shifted left three 
left four bits logically; the four least bits logically; the three least significant 
significant bits are all cleared. bits are all cleared. 
Carry = 0, since the last bit shifted from Carry = 1, since the last bit —— 
the leftmost bit position was 0. dm from the leftmost bit position 
was 1. 
; Title Multiple-precision logical shift left ; 
; Name: MPLSL ; 
; Н 
Н Н 
Purpose: Logical shift left a multi-byte operand N bits 
Entry: TOP OF STACK 
Low byte of return address, 
High byte of return address, 
Number of bits to shift, 
Length of the operand in bytes, 
Low byte of address of the operand, 
High byte of address of the operand 
The operand is stored with ARRAY[0] as its 
least significant byte and ARRAY [LENGTH-1] 
its most significant byte. 
Exit: Operand shifted left filling the least 


significant bits with zeros. 
CARRY :- Last most significant bit 


Registers used: All 


Time: 73 cycles overhead plus | 
((20 * length) + 16) cycles per shift 


Size: Program 54 bytes 
Data 2 bytes plus 
2 bytes in page zero 
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MPLSL: 


LSLLP: 


LOOP: 
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; EQUATES | 
PTR: .EQU орон ;PAGE ZERO FOR POINTER TO OPERAND 


;SAVE RETURN ADDRESS 
PLA 
TAY 
PLA 
TAX 


;GET NUMBER OF BITS 
PLA 
STA NBITS 


;GET LENGTH OF OPERAND 


PLA 

STA LENGTH 

;GET STARTING ADDRESS OF THE OPERAND 

PLA 

STA PTR 

PLA 

STA PTR+1 

;RESTORE THE RETURN ADDRESS 

TXA 

PHA 

TYA 

PHA ;RESTORE RETURN ADDRESS 

;INITIALIZE 

CLC ;CLEAR CARRY 

LDA LENGTH 

BEQ EXIT ;EXIT IF LENGTH OF THE OPERAND IS 0 
LDA NBITS 

BEQ EXIT ;EXIT IF NUMBER OF BITS TO SHIFT IS 0 


; WITH CARRY CLEAR 


;LOOP ON THE NUMBER OF SHIFTS TO PERFORM 


LDY $0 ;XY = INDEX TO LOW BYTE OF THE OPERAND 
LDX LENGTH ;X - NUMBER OF BYTES 
CLC ;CLEAR CARRY TO FILL WITH ZEROS 


;SHIFT LEFT ONE BIT 


LDA (PTR) ,Y ;GET NEXT BYTE 

ROL A ;ROTATE BIT 0 := CARRY, CARRY := ВІТ 7 
STA (PTR) ,Y ;STORE NEW VALUE 

INY ; INCREMENT TO NEXT BYTE 

DEX ; DECREMENT COUNTER 

BNE LOOP ;CONTINUE THROUGH ALL THE BYTES 


; DECREMENT NUMBER OF SHIFTS 
DEC NBITS ;DECREMENT SHIFT COUNTER 
BNE LSLLP ; CONTINUE UNTIL DONE 
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EXIT: 
RTS 


;DATA SECTION 
NBITS: .BLOCK 
LENGTH: .BLOCK 


me че че чо Фо 


$C0707: 
LDA 
PHA 
LDA 
PHA 


LDA 
PHA 


LDA 
PHA 
JSR 
BRK 


JMP 


; 

;DATA SECTION 
SZAY: . EQU 
SHIFTS: .BYTE 


AYADR: .WORD 
AY: . BYTE 
. END 


l 
1 


SAMPLE EXECUTION: 


AYADR+1 


AYADR 


#SZAY 


SHIFTS 


MPLSL 


$C0707 


7 

4 

AY 
21H,43H, 


; PROGRAM 


;NUMBER OF BITS TO SHIFT 
; LENGTH OF OPERAND 


me че чо VO BVO 


; PUSH STARTING ADDRESS OF OPERAND 


;PUSH LENGTH OF OPERAND 


;PUSH NUMBER OF SHIFTS 


;SHIFT 
;RESULT OF SHIFTING AY = EDCBA987654321H, 4 BITS IS 


: AY = DCBA9876543210H, C=0 
; IN MEMORY AY = (10H 
: АҮ+1 = 032H 
; АҮ+2 = 054Н 
; АҮ+З = 076H 
; AY+4 = 098H 
; AY+5 = ОВАН 
: АУ+6 = ODCH. 


;LENGTH OF OPERAND 

;NUMBER OF SHIFTS 

;STARTING ADDRESS OF ОРЕКАМО 
65H, 87H, 0A9H , OCBH, OEDH 


Multiple-Precision Logical Shift Right (MPLSR) 


Shifts a multi-byte number right logically 
by a specified number of bit positions. The 
length of the operand (in bytes) is 255 or less. 
The Carry flag is set to the value of the last bit 
shifted out of the rightmost bit position. The 
operand is stored with its least significant 


Registers Used: All 


Execution Time: NUMBER OF SHIFTS * (14 + 
18 * LENGTH OF OPERAND IN BYTES) + 80 
cycles. 


If, for example, NUMBER OF SHIFTS = 4 
and LENGTH OF OPERAND IN BYTES = 8 
(i.e., a 4-bit shift of an 8-byte operand), the 
execution time is 


4» (14 + 18 * 8) + 80 = 4» (158) + 80 = 
712 cycles. 


Program Size: 59 bytes 


Data Memory Required: Two bytes anywhere in 
RAM plus two bytes on page 0. The two bytes 


Entry Conditions 


Order in stack (starting from the top) 


Less significant byte of return address 
More significant byte of return address 


Number of shifts (bit positions) 
Length of the operand in bytes 


Less significant byte of starting address of 
operand (address of its least significant 
byte) 

More significant byte of starting address of 
operand (address of its least significant 
byte) 


7H 


byte at the lowest address. 

Procedure: The program clears the Carry 
initially (to fill with a 0 bit) and then rotates 
the entire operand right one bit, starting with 
the most significant byte. It repeats the 
operation for the specified number of shifts. 


anywhere in RAM are temporary storage for the 
number of shifts (one byte at address NBITS) 
and the length of the operand in bytes (one byte 
at address LENGTH). The two bytes on page 0 
hold a pointer to the operand (starting at address 
PTR, 0000 in the listing). 


Special Cases: 


1. If the length of the operand is zero, the pro- 
gram exits immediately with the operand 
unchanged and the Carry flag cleared. 

2. If the number of shifts is zero, the program 
exits immediately with the operand unchanged 
and the Carry flag cleared. 


Exit Conditions 


Operand shifted right logically by the 
specified number of bit positions (the most 
significant bit positions are filled with zeros). 
The Carry flag is set according to the last bit 
shifted from the rightmost bit position. (or 
cleared if either the the number of shifts or 
the length of the operand is zero). 
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Examples 
1. Data: Length of operand (in bytes) = 08 2. Data: Length of operand (in bytes) = 04 
Operand = 85А4С719ЕЕ0674ІЕ Operand = 3Е6А4203 6 
Number of shifts = 04 Number of shifts = 03 
Result: Shifted operand = 085A4C719FE06741 6. Result: Shifted operand = 07ED485A ,,. 
This is the original operand shifted right This is the original operand shifted 
four bits logically, the four most right three bits logically; the three least 
significant bits are all cleared. significant bits are all cleared. 
Carry = 1, since the last bit shifted from Carry = 0, since the last bit shifted 
the rightmost position was 1. from the rightmost bit position was 0. 
; Title Multiple-Precision logical shift right ; 
P Name: MPLSR : 
; ; 
Н ; 
Purpose: Logical shift right a multi-byte operand N bits 
Entry: TOP OF STACK 
Low byte of return address, 
High byte of return address, 
Number of bits to shift, 
Length of the operand in bytes, 
Low byte of address of the operand, 
High byte of address of the operand 
The operand is stored with ARRAY[0] as its 
least significant byte and ARRAY [LENGTH-1] 
its most significant byte. 
Exit: Operand shifted right filling the most 


significant bits with zeros 
CARRY := Last bit shifted from the least 
significant position 


Registers used: All 


Time: 85 cycles overhead plus | 
: ((18 * length) + 14) cycles per shift 
Size: Program 59 bytes 
Data 2 bytes plus 


2 bytes in page zero 


чо че че че e че че че TSH чо че чо чо чо че чо че че че че че че че We чо че че че че чо 


че че TO че че че че че че WO чо чо че зо чо че че че чо WH чо че че че че чо че че чо чо 
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: EQUATES 


PTR: .EQU Орон РАСЕ ZERO FOR POINTER TO OPERAND 
MPLSR: | | 

¿SAVE RETURN ADDRESS 

PLA 

TAY 

PLA 

TAX 

‚СЕТ NUMBER OF BITS 

PLA | 

STA NBITS 

? СЕТ LENGTH OF OPERAND 

PLA 

STA LENGTH 

;GET STARTING' ADDRESS OF THE OPERAND 

PLA 

STA PTR 

PLA 

STA РТК+1 

;RESTORE THE RETURN ADDRESS 

TXA 

PHA 

TYA | 

PHA ¿RESTORE RETURN ADDRESS 

;INITIALIZE 

CLC ¿CLEAR CARRY 

LDA LENGTH 

BEQ EXIT ;EXIT IF LENGTH OF OPERAND IS 0 

LDA NBITS 

BEQ EXIT ;EXIT IF NUMBER OF BITS TO SHIFT IS 0 

; WITH CARRY CLEAR 

;DECREMENT POINTER SO THAT THE LENGTH BYTE MAY BE USED BOTH 

; AS A COUNTER AND THE INDEX 

LDA PTR 

BNE MPLSR1 | 

DEC PTR+1 ;DECREMENT HIGH BYTE IF A BORROW IS NEEDED 
MPLSR1: DEC PTR ;ALWAY DECREMENT HIGH BYTE 

;LOOP ON THE NUMBER OF SHIFTS TO PERFORM 
LSRLP: 

LDY LENGTH ;Ү = INDEX TO MSB AND COUNTER 

CLC ;CLEAR CARRY TO FILL WITH ZEROS 

;SHIFT RIGHT ONE BIT 
LOOP: 22 

LDA (PTR),Y СЕТ NEXT BYTE 

ROR A ;ROTATE BIT 7 := CARRY, CARRY := BIT 0 


STA (PTR) ,Y ;STORE NEW VALUE 
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DEY ;DECREMENT COUNTER 
BNE LOOP ;CONTINUE THROUGH ALL THE BYTES 
;DECREMENT NUMBER OF SHIFTS 
DEC NBITS ;DECREMENT SHIFT COUNTER 
BNE LSRLP ;CONTINUE UNTIL DONE 
EXIT: 
RTS 
;DATA SECTION 
NBITS: .BLOCK 1 ;NUMBER OF BITS TO SHIFT 
LENGTH: .BLOCK 1 ;LENGTH OF OPERAND 


SAMPLE EXECUTION: 


че wwe че че че 
чо че чо че WO 


SC0708: 
LDA AYADR+1 ;PUSH STARTING ADDRESS OF OPERAND 
PHA 
LDA AYADR 
PHA 
LDA #S ZAY ;PUSH LENGTH OF OPERAND 
PHA 
LDA SHIFTS ;PUSH NUMBER OF SHIFTS 
PHA 
JSR MPLSR ;SHIFT 
BRK ;RESULT OF SHIFTING AY = EDCBA987654321H, 4 BITS IS 
; AY = OEDCBA98765432H, C=0 
; IN MEMORY AY = 032H 
P АУ+1 = 054H 
; AY+2 = 076H 
P AY+3 = 098H 
; AY+4 = OBAH 
; AY+5 = ODCH 
; AY+6 = ООЕН 
JMP 5С0708 
БАТА SECTION 
SZAY: . EQU 1 ;LENGTH OF OPERAND 
SHIFTS: .BYTE 4 ;NUMBER OF SHIFTS 
AYADR:  .WORD AY ¿STARTING ADDRESS OF OPERAND 
AY: . BYTE 21H,43H,65H,87H, 0A9H, OCBH, OEDH 


‚ END ; PROGRAM 


Multiple-Precision Rotate Right (MPRH) | 4 


Rotates a multi-byte operand right by a 
specified number of bit positions (as if the 
most significant bit and least significant bit 
were connected directly). The length of the 
operand in bytes is 255 or less. The Carry flag 
is set to the value of the last bit shifted out of 
the rightmost bit position. The operand is 
stored with its least significant byte at the 


Registers used: All 


Execution Time: NUMBER OF SHIFTS * (21 
+ 18 * LENGTH OF OPERAND IN BYTES) 
+ 85 cycles. 


If for example, NUMBER OF SHIFTS = 6 and 
LENGTH OF OPERAND IN BYTES = 4 (і.е. a 
6-bit shift of a 4-byte operand), the execution 


time is 
6* (21 + 18 = 4) + 85 = 6* (93) + 85 
+ 643 cycles. 

Program Size: 63 bytes 


Data Memory Required: Two bytes anywhere in 
RAM plus two bytes on page 0. The two bytes 


Entry Conditions 


Order in stack (starting from the top) 


Less significant byte of return address 
More significant byte of return address 


Number of shifts (bit positions) 
Length of the operand in bytes 


Less significant byte of starting address of 
operand (address of its least significant 
byte) 

More significant byte of starting address of 
operand (address of its least significant 
byte) 


lowest address. 

Procedure: The program shifts bit 0 of the 
least significant byte of the operand to the 
Carry flag and then rotates the entire operand 
right one bit, starting with the most signifi- 
cant byte. It repeats the operation for the 
specified number of shifts. 


anywhere in RAM are temporary storage for the 
number of shifts (one byte at address NBITS) 
and the length of the operand in bytes (one byte 
at address LENGTH). The two bytes on page 0 
hold a pointer to the operand (starting at address 
PTR, 00D0,, in the listing). 


Special Cases: 

1. If the length of the operand is zero, the 
program exits immediately with the operand 
unchanged and the Carry flag cleared. 

2. If the number of shifts is zero, the pro- 
gram exits immediately with the operand 
unchanged and the Carry flag cleared. 


Exit Conditions 


Operand rotated right by the specified num- 
ber of bit positions (the most significant bit 
positions are filled from the least significant 
bit positions). The Carry flag is set according 
to the last bit shifted from the rightmost bit 
position (or cleared if either the number of 
shifts or the length of the operand is zero). 
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Examples 
1. Data: Length of operand (in bytes) = 08 2. Data: Length of operand (in bytes) = 04 
Operand = 85А4С719ЕЕО6741Е Operand = 3F6A42D3,, 
Number of shifts = 04 Number of shifts = 03 
Result: Shifted operand = Е85А4С719Е306741 |. Result: Shifted operand = 67ED485A |. This is 
This is the original operand rotated right the original operand rotated right 3 bits; 
four bits: the four most significant bits the three most significant bits (011) are 
are equivalent to the original four equivalent to the original three least 
least significant bits. | significant bits. 
Carry — 1, since the last bit shifted from Carry = 0, since the last bit shifted 
the rightmost bit position was 1. from the rightmost bit position was 0. 
- Title Multiple-precision rotate right ; 
; Мате: MPRR ; 
P ; 
Н ; 
Purpose: Rotate right a multi-byte operand N bits 
Entry: TOP OF STACK 
Low byte of return address, 
High byte of return address, 
Number of bits to shift, 
Length of the operand in bytes, 
Low byte of address of the operand, 
High byte of address of the operand 
The operand is stored with ARRAY [0] as its 
least significant byte and ARRAY [LENGTH-1] 
its most significant byte. 
Exit: Operand rotated right 


CARRY := Last bit shifted from the least 
significant position 


Registers used: All 


Time: 85 cycles overhead plus 
((18 * length) + 21) cycles per shift 
Size: Program 63 bytes 
Data 2 bytes plus 


2 bytes in page zero 


чо чо че че чо че BO чо чо WO че чо TO ча зо TE TO че чо We че че че че че че че WO чо 
-ә we ча чо че че че че We че WH че “30 че 960 WS WOH че We ъ We чо че WH WE че че че WE 


; EQUATES 
PTR: .EQU орон ;PAGE ZERO FOR POINTER ТО OPERAND 


MPRR: 


MPRR1: 


RRLP: 


LOOP: 
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? SAVE RETURN ADDRESS 
PLA 
TAY 
PLA 
TAX 


;GET NUMBER OF BITS 
PLA 
STA NBITS 


;GET LENGTH OF OPERAND 


PLA 

STA LENGTH 

;GET STARTING ADDRESS OF THE OPERAND 

PLA 

STA PTR 

PLA 

STA PTR+1 

;RESTORE THE RETURN ADDRESS 

TXA 

PHA 

TYA 

PHA ;RESTORE RETURN ADDRESS 

? INITIALIZE 

CLC ;CLEAR CARRY 

LDA LENGTH 

BEQ EXIT ;EXIT IF LENGTH OF THE OPERAND IS 0 
LDA NBITS 

BEQ EXIT ;EXIT IF NUMBER OF BITS TO SHIFT IS O0 


; WITH CARRY CLEAR 


; DECREMENT POINTER SO THAT THE LENGTH BYTE MAY BE USED BOTH 
; AS A COUNTER AND THE INDEX 


LDA PTR 

BNE MPRR1 

DEC PTR+1 ;DECREMENT HIGH BYTE IF A BORROW IS NEEDED 
DEC PTR ;ALWAYS DECREMENT LOW BYTE 


;LOOP ON THE NUMBER OF SHIFTS TO PERFORM 


LDY #1 

LDA (PTR) ,Y ;GET LOW BYTE OF THE OPERAND 

LSR A ;CARRY :- BIT 0 OF LOW BYTE 

LDY LENGTH ;Y = INDEX TO HIGH BYTE AND COUNTER 


;ROTATE RIGHT ONE BIT 


LDA (PTR) ,Y ;GET NEXT BYTE 
ROR A ;ROTATE BIT 7 := CARRY, CARRY :- BIT 0 
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STA (PTR),Y ;STORE NEW VALUE 
DEY ;DECREMENT COUNTER 
BNE LOOP ;CONTINUE THROUGH ALL THE BYTES 
;DECREMENT NUMBER OF SHIFTS 
DEC NBITS ;DECREMENT SHIFT COUNTER 
BNE RRLP ;CONTINUE UNTIL DONE 
EXIT: 
RTS 
;DATA SECTION 
NBITS: .BLOCK 1 ;NUMBER OF BITS TO SHIFT 
LENGTH: .BLOCK 1 ;LENGTH OF OPERAND 


SAMPLE EXECUTION: 


we зо чо чо чо 
me чо че че че 


5С0709: 
LDA AYADR+1 ;PUSH STARTING ADDRESS OF OPERAND 
PHA 
LDA AYADR 
PHA 
LDA #SZAY ‚РОЗН LENGTH OF OPERAND ` 
PHA 
LDA SHIFTS ;PUSH NUMBER OF SHIFTS 
PHA 
JSR MPRR ; ROTATE 
BRK ;:;RESULT OF ROTATING АҮ = EDCBA987654321H 4 BITS IS 
; AY = lEDCBA98765432H C20 
; IN MEMORY АҮ = 032H 
; АҮ+1 = 054H 
s AY+2 = 076H 
; AY+3 = 098H 
; AY+4 = OBAH 
; AY+5 = ODCH 
я АҮ+6 = ÜlEH 
JMP SC0709 
p 
a 
;:DATA SECTION | 
52АҮ: . EQU 7 :LENGTH OF OPERAND IN BYTES 
SHIFTS: .BYTE 4 ;:NUMBER OF SHIFTS 
AYADR: .WORD AY :STARTING ADDRESS OF OPERAND 
AY: . ВУТЕ 21H,43H,65H, 87H, 0A9H , ОСВН, OEDH 


‚ END ; PROGRAM 


Multiple-Precision Rotate Left (MPRL) 


7. 


Rotates а multi-byte operand left by a 
specified number of bit positions (i.e., as if 
the most significant bit and least significant 
bit were connected directly). The length of 
the operand in bytes is 255 or less. The Carry 
flag is set to the value of the last bit shifted 
out of the leftmost bit position. The operand 
is stored with its least significant byte at the 


Registers Used: All 


Execution Time: NUMBER OF SHIFTS « (27 + 
20 * LENGTH OF OPERAND IN BYTES) + 73 
cycles. 


If, for example, NUMBER OF SHIFTS = 4 
and LENGTH OF OPERAND IN BYTES = 8 
(i.e., а 4-bit shift of an 8-byte operand), the 
execution time is 


4» (27 + 20*8) + 73 = 4« (187) + 73 = 
821 cycles. 


Program Size: 60 bytes 


Data Memory Required: Two bytes anywhere in 
RAM plus two bytes on page 0. The two bytes 


Entry Conditions 


Order in stack (starting from the top) 


Less significant byte of return address 
More significant byte of return address 


Number of shifts (bit positions) 
Length of the operand in bytes 


Less significant byte of starting address of 
operand (address of its least significant 
byte) 

More significant byte of starting address of 
operand (address of its least significant 
byte) 


number of shifts (one byte at address NBITS) 


lowest address. 

Procedure: The program shifts bit 7 of the 
most significant byte of the operand to the 
Carry flag. It then rotates the entire operand 
left one bit, starting with the least significant 
byte. It repeats the operation for the specified 
number of shifts. 


anywhere in RAM are temporary storage for the 


and the length of the operand in bytes (one byte 
at address LENGTH). The two bytes on page 0 
hold a pointer to the operand (starting at address 
PTR, 00D0,, in the listing). 


Special Cases: 


1. If the length of the operand is zero, the 
program exits immediately with the operand 
unchanged and the Carry flag cleared. 

2. If the number of shifts is zero, the program 
exits immediately with the operand unchanged 
and the Carry flag cleared. 


Exit Conditions 


Operand rotated left by the specified number 
of bit positions (the least significant bit posi- 
tions are filled from the most significant bit 
positions). The Carry flag is set according to 
the last bit shifted from the leftmost bit posi- 
tion (or cleared if either the number of shifts 
or the length of the operand is zero). 
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Examples 
1. Data: Length of operand (in bytes) = 08 2. Data: Length of operand (in bytes}-= 04 
Operand = 85А4С719ЕЕ06741Е 4 Орегапа = 3F6A42D3,, 
Number of shifts = 04 Number of shifts = 03 
Result: Shifted operand = 5A4C719FE06741E8,,. Result: Shifted operand = FB521699,¢. This is 
This is the original operand rotated left the original operand rotated left three bits; 
four bits; the four least significant bits the three least significant bits (001) 
are equivalent to the original four most are equivalent to the original three most 
significant bits. significant bits. 
Carry = 0, since the last bit shifted Carry = 1, since the last bit shifted 
from the leftmost bit position was 0. from the leftmost bit position was 1. 
; Title Multiple-precision rotate left - 
; Name: MPRL ; 
; P 
; ; 
Purpose: Rotate left a multi-byte operand N bits 
Entry: TOP OF STACK 
Low byte of return address, 
High byte of return address, 
Number of bits to shift, 
Length of the operand in bytes, 
Low byte of address of the operand, 
High byte of address of the operand 
The operand is stored with ARRAY[0] as its 
least significant byte and ARRAY [LENGTH-1] 
its most significant byte. 
Exit: Number rotated left 


CARRY := Last bit shifted from the most 
significant position 


Registers used: All 


Time: 73 cycles overhead plus | 
((20 * length) + 27) cycles per shift 


Size: Program 60 bytes 
Data 2 bytes plus 
2 bytes in page Zero 


me чо че че че че WH WO me ча че чо че че чо TO чо чо me че чо че че че че че че WE чо 
чо чо че че че че чо че че че чо чо чо че чо чо че че чо чо че чо чо ve че чо чо WE me 


; EQUATES 
deg . EQU орон ;PAGE ZERO FOR POINTER TO OPERAND 
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MPRL: 
; SAVE RETURN ADDRESS 
PLA 
TAY 
PLA 
TAX 
;GET NUMBER OF BITS 
PLA 
STA. NBITS 
;GET LENGTH OF OPERAND 
PLA 
STA LENGTH 
;GET STARTING ADDRESS.OF THE OPERAND 
PLA 
STA PTR 
PLA 
STA РТК+1 
;RESTORE THE RETURN ADDRESS 
TXA 
PHA 
TYA 
PHA ;RESTORE RETURN ADDRESS 
;INITIALIZE 
CLC ; CLEAR CARRY 
LDA LENGTH | : 
BEQ EXIT ;EXIT IF THE LENGTH OF THE OPERAND IS 0 
LDA NBITS 
BEQ EXIT ;EXIT IF NUMBER OF BITS TO SHIFT IS 0 
; WITH CARRY CLEAR 
;LOOP ON THE NUMBER OF SHIFTS TO PERFORM 
RLLP: 
LDY LENGTH 
DEY | | 
LDA (PTR),Y ;GET HIGH BYTE OF THE OPERAND 
ASL A ;CARRY := BIT 7 OF HIGH BYTE 
LDY #0 ;Y = INDEX TO LEAST SIGNIFICANT BYTE 
LDX LENGTH ;X = NUMBER OF BYTES 
;ROTATE LEFT ONE BIT 
LOOP: | 
LDA (PTR),Y ;GET NEXT BYTE 
ROL A ;ROTATE BIT 7 := CARRY, CARRY := BIT 0 
STA (PTR) ,Y ;STORE NEW VALUE 
INY ; INCREMENT TO NEXT BYTE 
DEX ;DECREMENT COUNTER 
BNE LOOP ;CONTINUE THROUGH ALL THE BYTES 


;DECREMENT NUMBER OF SHIFTS 
DEC NBITS .. 5,DECREMENT SHIFT COUNTER 
BNE RLLP CONTINUE UNTIL DONE 
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EXIT: 
RTS 


;DATA SECTION 


NBITS: .BLOCK 
LENGTH: .BLOCK 


` чо we wo че 


SC0710: 
LDA 
PHA 
LDA 
PHA 


LDA 
PHA 


LDA 
PHA 
JSR 
BRK 


JMP 


7 

:DATA SECTION 
SZAY: . EQU 
SHIFTS: .BYTE 
AYADR: .WORD 
AY: . BYTE 


. END 


SAMPLE EXECUTION: 


;NUMBER OF BITS TO SHIFT 
;LENGTH OF OPERAND 


че "9 о чо чо 


AYADR+1 ;PUSH STARTING ADDRESS OF OPERAND 


AYADR 


 $SZ2AY 


SHIFTS 


MPRL 


5С0710 


7 

4 

АҮ 
21H,43H, 


; PROGRAM 


;PUSH LENGTH OF OPERAND 


;PUSH NUMBER OF SHIFTS 


‚ ¿ROTATE 


;RESULT OF ROTATING AY - EDCBA987654321H, 4 BITS IS 
; AY = DCBA987654321EH, C=0 


; IN MEMORY AY = ОЛЕН 
; AY+l = 032H 
; AY+2 = 054H 
; AY+3 = 076H 
; AY+4 = 098Н 
; AY+5 = OBAH 
; AY+6 = ODCH 


;LENGTH OF OPERAND IN BYTES 
;NUMBER OF SHIFTS 

;ADDRESS OF OPERAND 

65H, 87H, 0A9H, ОСВН, OEDH 


String Compare (STRCMP) 


8A 


Compares two strings and sets the Carry 
and Zero flags appropriately. The Zero flag is 
set to 1 if the strings are identical and to 0 
otherwise. The Carry flag is set to 0 if the 
string with the address higher in the stack 
(string 2) is larger than the other string 
(string 1); the Carry flag is set to 1 otherwise. 
The strings are a maximum of 255 bytes long 
and the actual characters are preceded by a 
byte containing the length. If the two strings 
are identical through the length of the 
shorter, then the longer string is considered 
to be larger. 

Procedure: The program first determines 
which string is shorter from the lengths 
which precede the actual characters. It then 
compares the strings one byte at a time 
through the length of the shorter. If the pro- 
gram finds corresponding bytes that are not 
the same through the length of the shorter, 
the program sets the flags by comparing the 
lengths. 


Entry Conditions 


Order in stack (starting from the top) 


Less significant byte of return address 
More significant byte of return address 


Less significant byte of starting address of 
string 2 

More significant byte of starting address of 
string 2 

Less significant byte of starting address of 
string 1 

More significant byte of starting address of 
String 1 


Registers Used: All 


Execution Time: 

1. If the strings are not identical through the 
length of the shorter, the approximate execution 
time is 
: 81 + 19* NUMBER OF CHARACTERS 

COMPARED. 
If, for example, the routine compares five charac- 
ters before finding a difference, the execution 
time is 
81 + 19* 5 = 81 + 95 = 176 cycles. 
2. If the strings are identical through the 


length of the shorter, the approximate execution 
time is 


93 + 19* LENGTH OF SHORTER STRING. 
If, for example, the shorter string is eight 

bytes long, the execution time is 

93 + 19*8 = 93 + 152 = 245 cycles. 
Program Size: 52 bytes 
Data Memory Required: Four bytes on page 0, 
two bytes starting at address SIADR (00D0,, in 
the listing) for a pointer to string 1 and two bytes 


starting at address SJADR (0002,6 in the listing) 
for a pointer to string 2. 


Exit Conditions 


Flags set as if string 2 had been subtracted 
from string 1 or, if the strings are equal 
through the length of the shorter, as if the 
length of string 2 had been subtracted from 
the length of string 1. 


Zero flag = 1 if the strings are identical, 0 
if they are not identical. 


Carry flag = 0 if string 2 is larger than string 
1, 1 if they are identical or string 1 is larger. 
If the strings are the same through the 
length of the shorter, the longer one is con- 
sidered to be larger. 
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Examples 
1. Data: String 1 = 05‘PRINT’ (05 is the length of 
the string) 
String 2 = 03'END' (03 is the length of 
| the string) 
Result: Zero flag = 0 (strings are not identical) 
Carry flag = 1 (string 2 is not larger than 
string 1) 
2. Data: String 1 = 05РЕІМТ” (05 is the length of 
the string) 
String 2 = 02‘PR’ (02 is the length of the 
string) 
Result: Zero flag = 0 (strings are not identical) 


Carry flag = 1 (string 2 is not larger than 
string 1) 


The longer string (string 1) is considered 
to be larger. If you want to determine 
whether string 2 is an abbreviation of string 
1, you could use Subroutine 8C (FIND THE 
POSITION OF A SUBSTRING) and deter- 
mine whether string 2 was part of string 1 and 
started at the first character. 


- Title String compare 
: Напе: STRCMP 

; 

; 

Н 

; Purpose: 

; or cleared. 

; Entry: TOP OF STACK 
; 

; 

; 

i 

; 

i 

; 

р 

P 

; : — 
; Exit: IF string 

a 


2=1,С=1 


Compare 2 strings and return С and 2 flags set 


Low byte of return address, 
High byte of return address, 
Low byte of string 2 address, 
High byte of string 2 address, 
Low byte of string 1 address, 
High byte of string 1 address 


A string is a maximum of 255 bytes long plus 
a length byte which precedes it. 


string 2 THEN 


3. Data: String 1 = 05'PRINT' (05 is the length of 
the string) 
String 2 = 06'SYSTEM' (06 is the length 
of the string) 
Result: Zero flag = 0 (strings are not identical) 


Carry flag = 0 (string 2 is larger than 
string 1) 

We are assuming here that the strings con- 
sist of ASCII characters. Note that the byte 
preceding the actual characters contains a 
hexadecimal number (the length of the 
string), not a character. We have represented 
this byte as two hexadecimal digits in front of 
the string; the string itself is surrounded by 
single quotation marks. 

Note also that this particular routine treats 
spaces like any other characters. If for exam- 
ple, the strings are ASCII, the routine will 
find that SPRINGMAID is larger than 
SPRING MAID, since an ASCII M (4D,,) is 
larger than an ASCII space (20,,). 


че чо че чо 


w чо че че че че че че че we че че че че че чо WE 
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IF string l > string 2 THEN 
2=0,С=1 

IF string 1 < string 2 THEN 
2-0,С-0 


Registers used: А11 


Time: Worst case timing for strings which are equal. 
93 cycles maximum overhead plus (19 * length) 


Size: Program 52 bytes 
Data 4 bytes in page zero 


=e че ча ча Te ча * че “Ге no BO WO чо BO 
me чо че че че чо че TO TO TO чо че че чо 


; EQUATES 
SlADR . EQU орон ;PAGE ZERO POINTER TO STRING 1 
S2ADR . EQU 002Н ; PAGE ZERO POINTER TO STRING 2 


STRCMP: 
¿GET RETURN ADDRESS 
PLA 
TAY 
PLA 
TAX 


;GET THE STARTING ADDRESS OF STRING 2 
PLA 

STA S2ADR 

PLA 

STA S2ADR+1 


;GET THE STARTING ADDRESS OF STRING 1 
PLA 

STA SlADR 

PLA 

STA SlADR-*1 


;RESTORE RETURN ADDRESS 
TXA 
PHA 
TYA 
PHA 


; 
;DETERMINE WHICH STRING IS SHORTER 


LDY $0 

LDA (SlADR),Y ;GET LENGTH OF STRING #1 

CMP (S2ADR) ,Y 

BCC BEGCMP ? ТЕ STRING #2 IS SHORTER THEN 
LDA (S2ADR) ,Y ; USE ITS LENGTH INSTEAD 


е 
, 
° 
, 


COMPARE THE STRINGS THROUGH THE LENGTH OF THE SHORTER STRING 
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BEGCMP: 
TAX ;X IS THE LENGTH OF THE SHORTER STRING 
BEQ TSTLEN :ВКАМСН IF LENGTH IS ZERO 
LDY #1 ¿POINT AT FIRST CHARACTER OF STRINGS 
CMPLP: 
LDA (SlADR),Y 
CMP (S2ADR) ,Y 
BNE EXIT ¿BRANCH IF CHARACTERS ARE NOT EQUAL 
; 7,С WILL BE PROPERLY SET OR CLEARED 
: | ELSE 
INY ; NEXT CHARACTER 
DEX ; DECREMENT COUNTER 
BNE CMPLP ; CONTINUE UNTIL ALL BYTES ARE COMPARED 
:THE 2 STRINGS ARE EQUAL TO THE LENGTH OF THE SHORTER 
SO USE THE LENGTHS AS THE BASIS FOR SETTING THE FLAGS 
TSTLEN: 
LDY $0 : COMPARE LENGTHS 
LDA (SIADR),Y 
CMP (S2ADR) , Y :SET OR CLEAR THE FLAGS 
# 
:ЕХІТ FROM STRING COMPARE 
EXIT: 
RTS 
; ; 
; | ; 
; SAMPLE EXECUTION: ; 
; ; 
; ; 
SC0801: 
LDA SADR1+1 ;PUSH STARTING ADDRESS OF STRING 1 
PHA 
LDA SADR1 
PHA 
LDA SADR2+1 ;PUSH STARTING ADDRESS OF STRING 2 
PHA | 
LDA SADR2 
PHA 
JSR STRCMP ; COMPARE 
BRK ¿RESULT OF COMPARING "STRING 1" AND "STRING 2" 
¿IS STRING 1 LESS THAN STRING 2 SO 
; 7-0,С-0 
JMP SC0801 :LOOP FOR ANOTHER TEST 


, 

TEST DATA, CHANGE TO TEST OTHER VALUES 

SADRI .WORD 51 

SADR2 . WORD 52 

51 . BYTE 20H,"STRING 1 " 
S2 .BYTE | 20H,"STRING 2 n 


. END ; PROGRAM 


String Concatenation (CONCAT) 


8B 


Combines (concatenates) two strings, 
placing the second immediately after the first 
in memory. If the concatenation would pro- 
duce a string longer than a specified max- 
imum, the program concatenates only 
enough of string 2 to give the combined 
string its maximum length. The Carry flag is 
cleared if all of string 2 can be concatenated 
and set to 1 if part of string 2 must be drop- 
ped. Both strings are a maximum of 255 bytes 
long and the actual characters are preceded 
by a byte containing the length. 

Procedure: The program uses the length of 


Registers Used: All 


Execution Time: Approximately 40 * NUMBER 
OF CHARACTERS CONCATENATED plus 
164 cycles overhead. The NUMBER OF 
CHARACTERS CONCATENATED is normally 
the length of string 2, but will be the maximum 
length of string 1 minus its current length if the 
combined string would be longer than the max- 
imum. If, for example, NUMBER OF CHARAC- 
TERS CONCATENATED is 141, (209), the 
execution time is 


40 * 20 + 161 = 800 + 164 = 964 cycles. 
Program Size: 141 bytes 


Data Memory Required: Seven bytes anywhere 
in RAM plus four bytes on page 0. The seven 
bytes anywhere in RAM are temporary storage 
for the maximum length of string 1 (1 byte at 
address MAXLEN), the length of string 1 (1 byte 
at address SILEN), the length of string 2 (1 byte 
at address S2LEN), a running index for string 1 
(1 byte at address 5110Х), a running index for 


string 1 to determine where to start adding 
characters and the length of string 2 to deter- 
mine how many characters to add. If the sum 
of the lengths exceeds the maximum, the 
program indicates an overflow and reduces 
the number of characters it must add (the 
number is the maximum length minus the 
length of string 1). It then moves the 
appropriate number of characters from string 
2 to the end of string 1, updates the length of 
string 1, and sets the Carry flag to indicate 
whether any characters had to be discarded. 


string 2 (1 byte at address S2IDX), a concatena- 
tion counter (1 byte at address COUNT), and a 
flag that indicates whether the combined strings 
overflowed (1 byte at address STRGOV). The 
four bytes on page 0 hold pointers to string 1 (two 
bytes starting at address 51 ADR, address 0000), 
in the listing) and to string 2 (two bytes starting at 
address SI ADR, address 0000,6 in the listing). 


Special Cases: 

1. If the concatenation would result in a string 
longer than the specified maximum length, the 
program concatenates only enough of string 2 to 
reach the maximum. If any of string 2 must be 
truncated, the Carry flag is set to 1. 

2. If string 2 has a length of zero, the program 
exits with the Carry flag cleared (no errors) and 
string 1 unchanged. That is, a length of zero for 
either string is interpreted as zero, not 256. 

3. Ifthe original length of string 1 exceeds the 
specified maximum length, the program exits 
with the Carry flag set to 1 (indicating an error) 
and string 1 unchanged. 
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Entry Conditions 
Order in stack (starting from the top) 


Less significant byte of return address 
More significant byte of return address 


Maximum length of string 1 


Less significant byte of starting address of 
string 2 

More significant byte of starting address of 
string 2 


Less significant byte of starting address of 
string 1 

More significant byte of starting address of 
string 1 


Exit Conditions 


String 2 concatenated at the end of string 1 
and the length of string 1 increased 
appropriately. If the resulting string would 
exceed the maximum length, only the part of 
string 2 that would give string 1 its maximum 
length is concatenated. If any part of string 2 
must be dropped, the Carry flag is set to 1. 
Otherwise, the Carry flag is cleared. 


Examples 


1. Data: Maximum length of string 1 = 0Е с = 14, 
String 1 = 07‘JOHNSON’ (07 is the 
length of the string) 
String 2 = 05‘, DON’ (05 is the length of 
the string) 


Result: String 1 = OC‘JOHNSON, DON’ 
(0С = 120 is the length of the 
combined string with string 2 
placed after string 1). 
Carry = 0, since the concatenation did not 
produce a string exceeding the 
maximum length. 


2. Data: 


Result: 


Maximum length of string 1 = OE,; = 14,9 
String 1 = 07‘JOHNSON’ (07 is the 
length of the string) 
String 2 = 09‘, RICHARD’ (09 is the 
length of the string) 


String 1 = OE'JOHNSON, RICHA’ 
(ОЕ 6 = 14,9 is the maximum 
length allowed, so the last two 
characters of string 2 have been 
dropped.) 

Carry = 1, since the concatenation 
produced a string longer than the 
maximum length. 


Note that we are representing the initial byte (containing the length of the string) as two 


hexadecimal digits in both examples. 
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; Title String Concatenation ; 
Н Name: CONCAT ; 
; ; 
? ; 
Purpose: Concatenate 2 strings into one string. 
Entry: TOP OF STACK 


Low byte of return address, 
High byte of return address, 
Maximum length of string 1, 
Low byte of string 2 address, 
High byte of string 2 address, 
Low byte of string 1 address, 
High byte of string l address 


A string is a maximum of 255 bytes long plus 
a length byte which precedes it. 


Exit: string 1 := string 1 concatenated with string 2 
If no errors then 
CARRY := 0 
else 
begin 
CARRY := 1 
if the concatenation makes string 1 too 
long concatenate only the part of string 2 
which will result in string 1 having its 
maximum length 
if length(stringl) > maximum length then 
no concatenation is done 
end; 


Registers used: A11 


Time: Approximately 40 * (length of string 2) cycles 
plus 161 cycles overhead 

Size: Program 141 bytes 
Data 7 bytes plus 


4 bytes in page zero 


we we че TO TO че чо че чо BVO WE WO ча че че че ч9 че WE WE “0 WO че WE чо че VO че че че че =e р че че че че че че 


me че Эс чо че че чо ча TH че че BO че че че че ча че VO ча ча BVO ча чо чо че чо чо ao чо чо NOH чо че чо че че Фо WO 


: EQUATES 
SlADR . EQU ODOH ¿PAGE ZERO POINTER TO STRING 1 
S2ADR . EQU OD2H ;PAGE ZERO POINTER TO STRING 2 
CONCAT: 

¿GET RETURN ADDRESS 

PLA ы 

ТАҮ ¿SAVE LOW BYTE 

PLA 


TAX ;SAVE HIGH BYTE 
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TOOLNG: 


;GET MAXIMUM LENGTH OF STRING 1 


PLA 
STA 


;GET THE STA 


PLA 
STA 
PLA 
STA 


MAXLEN 


S2ADR 


S2ADR+1 


RTING ADDRESS OF STRING 2 


;GET THE STARTING ADDRESS OF STRING 1 


PLA 
STA 
PLA 
STA 


;RESTORE RETURN ADDRESS 


TXA 
PHA 
TYA 
PHA 


SlADR 


SlADR-*1 


;RESTORE HIGH BYTE 


;RESTORE LOW BYTE 


;DETERMINE WHERE TO START CONCATENATING 


LDY 
LDA 
STA 
STA 
INC 
LDA 
STA 
LDA 
STA 


#0 
(SlADR),Y 
S1LEN 
SlIDX 
SlIDX 
(S2ADR) ,Y 
S2LEN 

#1 

S2IDX 


;GET CURRENT LENGTH OF STRING 1 


;START CONCATENATING AT THE END OF STRING 1 
;GET LENGTH OF STRING 2 


;START CONCATENATION AT BEGINNING OF STRING 2 


;DETERMINE THE NUMBER OF CHARACTERS TO CONCATENATE 


LDA 


че че че че WO 


S2LEN 


S1LEN 
TOOLNG 
MAXLEN 
LENOK 
LENOK 


#ОЕЕН 
STRGOV 
MAXLEN 


SlLEN 
EXIT 


;GET LENGTH OF STRING 2 


;ADD TO CURRENT LENGTH OF STRING 1 
;BRANCH IF LENGTH WILL EXCEED 255 BYTES 
;CHECK AGAINST MAXIMUM LENGTH 

;BRANCH IF LENGTH DOES NOT EXCEED MAXIMUM 


RESULTING STRING WILL BE TOO LONG SO 

INDICATE A STRING OVERFLOW, STRGOV :- OFFH 

SET NUMBER OF CHARACTERS ТО CONCATENATE = MAXLEN - SlLEN 
SET LENGTH OF STRING 1 TO MAXIMUM LENGTH 


;INDICATE OVERFLOW 


;EXIT IF MAXIMUM LENGTH < STRING 1 LENGTH 


LENOK: 


DOCAT: 


CATLP: 


EXIT: 


, 

; DATA 
MAXLEN 
SlLEN: 
S2LEN: 
SlIDX: 
S2IDX: 
COUNT: 
STRGOV: 


me че че чо 


БТА 
LDA 
STA 
JMP 


COUNT 
MAXLEN 
51ЬЕМ 
DOCAT 


8B STRING CONCATENATION (CONCAT) 


(THE ORIGINAL STRING WAS TOO LONG !!) 


; 
;SET COUNT TO SILEN - MAXLEN 


;SET LENGTH OF STRING 1 TO MAXIMUM 


; PERFORM CONCATENATION 


;RESULTING LENGTH DOES NOT EXCEED MAXIMUM 


LENGTH OF STRING 1 


= SlLEN + S2LEN 


; 
; INDICATE NO OVERFLOW, STRGOV := 0 
; SET NUMBER OF CHARACTERS TO CONCATENATE TO LENGTH OF STRING 2 


STA 
LDA 
STA 
LDA 
STA 


S1LEN 
#0 
STRGOV 
S2LEN 
COUNT 


;SAVE THE SUM OF THE 2 LENGTHS 
? INDICATE NO OVERFLOW 


;COUNT := LENGTH OF STRING 2 


; 
;CONCATENATE THE STRINGS 


LDA 
BEQ 


LDY 
LDA 
LDY 
STA 
INC 
INC 
DEC 
BNE 


LDA 
LDY 
STA 
LDA 
ROR 
RTS 


. BLOCK 
. BLOCK 
. BLOCK 
. BLOCK 
‚ BLOCK 
. BLOCK 
. BLOCK 


SAMPLE EXECUTION: 


COUNT 
EXIT 


S21IDX 


(S2ADR),Y 


SlIDX 


(SlADR),Y 


S1IDX 
S2IDX 
COUNT 
CATLP 


(SlADR),Y 


STRGOV 
A 


be P= ы 


;EXIT IF NO BYTES TO CONCATENATE 


;GET NEXT BYTE FROM STRING 2 


;MOVE IT TO END OF STRING 1 
;INCREMENT STRING 1 INDEX 
;INCREMENT STRING 2 INDEX 
;DECREMENT COUNTER 
;CONTINUE UNTIL COUNT = 0 


;UPDATE LENGTH OF STRING 1 


;GET OVERFLOW INDICATOR 
;CARRY = 1 IF OVERLOW, 0 IF NOT 


;MAXIMUM LENGTH OF 51 
;LENGTH OF 51 

; LENGTH OF S2 

;RUNNING INDEX INTO S1 
;RUNNING INDEX INTO 52 
;CONCATENATION COUNTER 
;STRING OVERFLOW FLAG 


me че че чо 
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me 
* 9 


SC0802: 
LDA SADR1+1 ;PUSH ADDRESS OF STRING 1 
PHA 
LDA SADRI 
PHA 
LDA SADR2+1 ;PUSH ADDRESS OF STRING 2 
PHA 
LDA SADR2 
PHA 
LDA $20H ;PUSH MAXIMUM LENGTH OF STRING 1 
PHA 
JSR CONCAT  ;CONCATENATE 
BRK ;RESULT OF CONCATENATING "LASTNAME" AND ", FIRSTNAME" 
; IS S1 - 13H,"LASTNAME, FIRSTNAME" 


JMP 5С0802 ;LOOP FOR ANOTHER TEST 


; 
; TEST DATA, CHANGE FOR OTHER VALUES 


SADR1 | WORD 51 ;STARTING ADDRESS ОЕ STRING 1 
SADR2 . WORD 52 ¿STARTING ADDRESS OF STRING 2 
S1 . BYTE 8H ;LENGTH OF $1 
. BYTE "LASTNAME " ; 32 BYTE MAX LENGTH 
S2 . BYTE OBH ;LENGTH OF S2 
‚ BYTE ", FIRSTNAME " 32 BYTE MAX LENGTH 


. END ; PROGRAM 


Find the Position of a Substring (POS) 


Searches for the first occurrence of a 
substring within a string. Returns the index 
at which the substring starts if it is found and 
О if it is not found. The string and the 
substring are both a maximum of 255 bytes 
long and the actual characters are preceded 
by a byte containing the length. Thus, if the 
substring is found, its starting index cannot 
be less than 1 or more than 255. 


Registers Used: All 


Execution Time: Data-dependent, but the over- 
head is 135 cycles, each successful match of one 
character takes 47 cycles, and each unsuccessful 
match of one character takes 50 cycles. The worst 
case occurs when the string and substring always 
match except for the last character in the 
substring, such as 
String = ‘AAAAAAAAB’ 
Substring = ‘ААВ’ 
The execution time in that case is 
(STRING LENGTH — SUBSTRING 
LENGTH + 1) + (47 + (SUBSTRING 
LENGTH - 1) + 50) + 135 
If, for example, STRING LENGTH = 9 and 
SUBSTRING LENGTH = 3, the execution time 
is 
(9 — 3 + 1) * (47 » (3 — 1) + 50) + 135 
= 7* 144 + 135 = 1008 + 135 = 1143 
cycles. 


Program Size: 124 bytes 


Data Memory Required: Six bytes anywhere in 
RAM plus four bytes on page 0. The six bytes 
anywhere in RAM are temporary storage for the 
length of the string (one byte at address SLEN), 
the length of the substring (one byte at address 


8C 


Procedure: The program moves through 
the string searching for the substring until it 
either finds a match or the remaining part of 
the string is shorter than the substring and 
hence cannot possibly contain it. If the 
substring does not appear in the string, the 
program clears the accumulator; otherwise, 
the program places the starting index of the 
substring in the accumulator. 


SUBLEN), a running index into the string (one 
byte at address SIDX), a running index into the 
substring (one byte at address SUBIDX), a 
search counter (one byte at address COUNT), 
and an index into the string (one byte at address 
INDEX). The four bytes on page 0 hold pointers 
to the substring (two bytes starting at address 
SUBSTG, 00D0;, in the listing) and to the string 
(two bytes starting at address STRING, 0002,6 
in the listing). 

Special Cases: 

1. If either the string or the substring has a 
length of zero, the program exits with zero in the 
accumulator, indicating that it did not find the 
substring. 

2. If the substring is longer than the string, 
the program exits with zero in the accumulator, 
indicating that it did not find the substring. 


3. If the program returns an index of 1, the 
substring may be regarded as an abbreviation of 
the string. That is, the substring occurs in the 
string, starting at the first character. A typical 
UM would be a string PRINT and a substring 

R. 


4. If the substring occurs more than once in 
the string, the program will return only the index 
to the first occurrence (the occurrence with the 
lowest starting index). 
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Entry Conditions 


Order in stack (starting from the top) 


Less significant byte of return address 
More significant byte of return address 


Exit Conditions 


Accumulator contains index at which first 
occurrence of substring starts if it is found; 
accumulator contains zero if substring is not 


Less significant byte of starting address of found. 
substring 
More significant byte of starting address of 
substring 
Less significant byte of starting address of 
string 
More significant byte of starting address of 
string 
Examples 
1. Data: String = 1D‘ ENTER SPEED IN MILES 3. Data: String = IOLET Y1 = ХІ + К7 (10, 
PER HOUR’ (ID,, = 2949 is the = 160 is the length of the string) 
length of the sum. Substring = 02'R4' (02 is the length of 
Substring = 05‘MILES’ (05 is the length the substring) 
of the substring) Result: | Accumulator contains 00, since the 
Result: | Accumulator contains 10,4 (1610), the substring *R4' does not appear in the 
index at which the substring ‘MILES’ string LET Y1 = X1 + R7. 
starts. 4. Data: String -07 RESTORE' (07 is the length 
2. Data: String = 1B‘SALES FIGURES FOR _ ofthe string) ~ 
JUNE 1981’ (1B, = 27,9 is the Substring = 03‘RES (03 is the length of 
length of the string) the substring) 
Substring = 04‘JUNE’ (04 is the length of Result: | Accumulator contains 01, the index at 
the substring) which the substring “RES” starts. An 
Result: | Accumulator contains 1315 (1910), the index of 01 indicates that the substring 


index at which the substring ‘JUNE’ 
starts. 


could be an abbreviation of the string; 
such abbreviations are, for example, often 
used in interactive programs (such as 
BASIC interpreters) to save on typing and 
storage. 


= чо че чо 


чо чо чо ~o че чо чо чо чо чо че че чо че че чо че чо че че чо че че чо чо TO чо чо чо чо че че че че VO чо чо чо чо чо чо чо ча чо WO че че че 


; EQUATES 


Title 
Name: 


Purpose: 


Entry: 


Exit: 


Registers used: 


Time: 


8C FIND THE POSITION OF A SUBSTRING (POS) 


Find the position of a substring in a string 
POS 


Search for the first occurrence of a substring 
within a string and return its starting index. 
If the substring is not found a 0 is returned. 


TOP OF STACK 
Low byte of return address, 
High byte of return address, 
Low byte of substring address, 
High byte of substring address, 
Low byte of string address, 
High byte of string address 


A string is a maximum of 255 bytes long plus 
a length byte which precedes it. 


If the substring is found then 
Register A = its starting index 
else 
Register A = 0 


All 


Since the algorithm is so data dependent 
a simple formula is impossible but the 
following statements are true and a 
worst case is given below: 


135 cycles overhead. 
Each match of 1 character takes 47 cycles 
A mismatch takes 50 cycles. 


Worst case timing will be when the 
string and substring always match 
except for the last character of the 
substring, Such as: 

String = 'AAAAAAAAAB' 

substring = 'AAB' 
135 cycles overhead plus 


(length(string) - length(substring) + 1) * 


Size: 


(( (length (substring)-1) # 47) + 50) 


Program 124 bytes 
Data 6 bytes plus 
4 bytes in page zero 
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SUBSTG 
STRING 


POS: 


LENOK: 


SLPl: 


. EQU орон ;PAGE ZERO POINTER TO SUBSTRING 

. EQU 0D2H ;PAGE ZERO POINTER TO STRING 

;GET RETURN ADDRESS 

PLA 

TAY ;SAVE LOW BYTE 

PLA 

TAX ;SAVE HIGH BYTE 

;GET THE STARTING ADDRESS OF SUBSTRING 

PLA 

STA SUBSTG 

PLA 

STA SUBSTG+1 

;GET THE STARTING ADDRESS OF STRING 

PLA 

STA STRING 

PLA 

STA STRING+1 

;RESTORE RETURN ADDRESS 

TXA 

PHA ¿RESTORE HIGH BYTE 

TYA 

PHA ;RESTORE LOW BYTE 

;SET UP TEMPQRARY LENGTH AND INDEX BYTES 

LDY £0 

LDA (STRING),Y ;GET LENGTH OF STRING 

BEQ NOTFND ;EXIT IF LENGTH OF STRING = 0 

STA SLEN 

LDA (SUBSTG),Y ¿GET LENGTH OF SUBSTRING 

BEQ NOTFND ;EXIT IF LENGTH OF SUBSTRING = 0 

STA SUBLEN 

;IF THE SUBSTRING IS LONGER THAN THE STRING DECLARE THE 

; SUBSTRING NOT FOUND 

LDA SUBLEN 

CMP SLEN 

BEQ LENOK 

BCS NOTFND ¿CANNOT FIND SUBSTRING IF IT IS LONGER THAN 
; STRING 

;START SEARCH, CONTINUE UNTIL REMAINING STRING SHORTER THAN SUBSTRING 

LDA #1 

STA INDEX ;START LOOKING AT FIRST CHARACTER OF STRING 

LDA SLEN ¿CONTINUE UNTIL REMAINING STRING TOO SHORT 

SEC ЩЕ ; COUNT=STRING LENGTH - SUBSTRING LENGTH + 1 

SBC SUBLEN 

STA COUNT 

INC COUNT 


; SEARCH FOR SUBSTRING IN STRING 


8C FIND THE POSITION OF A SUBSTRING (POS) 359 


LDA INDEX 
STA SIDX ;START STRING INDEX AT INDEX 
LDA $1 
STA SUBIDX ¿START SUBSTRING INDEX АТ 1 
{ООК FOR SUBSTRING BEGINNING AT INDEX 
CMPLP: 
LDY SIDX 
LDA (STRING),Y ‚СЕТ NEXT CHARACTER FROM STRING 
LDY SUBIDX 
CMP (SUBSTG),Y ; COMPARE TO NEXT CHARACTER IN SUBSTRING 
BNE SLP2 ? ВКАМСН IF SUBSTRING IS NOT HERE 
LDY SUBIDX 
CPY SUBLEN ;TEST IF WE ARE DONE 
BEQ FOUND ;BRANCH IF ALL CHARACTERS WERE EQUAL 
INY ELSE INCREMENT TO NEXT CHARACTER 
STY SUBIDX 
INC SIDX ? INCREMENT STRING INDEX 
JMP CMPLP CONTINUE 
ARRIVE HERE IF THE SUBSTRING IS NOT YET FOUND 
SLP2: 
INC INDEX ;INCREMENT INDEX 
DEC COUNT ;DECREMENT COUNT 
BNE SLPl ;BRANCH IF NOT DONE 
BEQ NOTFND ;ELSE EXIT NOT FOUND 
FOUND: 
LDA INDEX ; SUBSTRING FOUND, А = STARTING INDEX 
JMP EXIT 
NOTFND: 
LDA $0 ;SUBSTRING NOT FOUND, A = 0 
EXIT 
RTS 
; 
? DATA 


SLEN: . BLOCK 
SUBLEN: .BLOCK 
SIDX: . BLOCK 
SUBIDX: .BLOCK 
COUNT: .BLOCK 
INDEX:  .BLOCK 


;LENGTH OF STRING 

;LENGTH OF SUBSTRING 

; RUNNING INDEX INTO STRING 
;RUNNING INDEX INTO SUBSTRING 
; SEARCH COUNTER 

;CURRENT INDEX INTO STRING 


= ва ка ко ы ра 


SAMPLE EXECUTION: 


=e че we We “Го 
че чо че че че 


SC0803: 
LDA SADR+1 ; PUSH ADDRESS OF THE STRING 
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PHA 
LDA 
PHA 
LDA 
PHA 
LDA 
PHA 
JSR 
BRK 


JMP 


SADR 
SUBADR+1 
SUBADR 


POS 


SC0803 


;PUSH ADDRESS OF THE SUBSTRING 


;FIND POSITION OF SUBSTRING 

;RESULT OF SEARCHING "AAAAAAAAAB" FOR "AAB" IS 
; REGISTER A-8 

;LOOP FOR ANOTHER TEST 


; 
;TEST DATA, CHANGE FOR OTHER VALUES 


SADR 
SUBADR 
STG 


SSTG 


. WORD 
. WORD 
. BYTE 
. BYTE 
. BYTE 
‚ BYTE 


. END 


STG 


"AAAAAAAAAB 
3H 
"AAB 


; PROGRAM 


;LENGTH OF STRING 

" 32 BYTE MAX LENGTH 
;LENGTH OF SUBSTRING 

" ;32 BYTE MAX LENGTH 


Copy a Substring from a String (COPY) 


aD 


Copies a substring from a string, given a 
starting index and the number of bytes to 
copy. The strings are a maximum of 255 
bytes long and the actual characters are pre- 
ceded by a byte containing the length. If the 
starting index of the substring is zero (i.e., 
the substring would start in the length byte) 
or is beyond the end of the string, the 
substring is given a length of zero and the 
Carry flag is set to 1. If the substring would 
exceed its maximum length or would extend 
beyond the end of the string, then only the 
maximum number or the available number 
of characters (up to the end of the string) are 
placed in the substring, and the Carry flag is 
set to 1. If the substring can be formed as 
specified, the Carry flag is cleared. 


Registers Used: All 


Execution Time: Approximately 36 * NUMBER 
OF BYTES COPIES plus 200 cycles overhead. 


NUMBER OF BYTES COPIED is the number 
specified (if no problems occur) or the number 
available or the maximum length of the substring 
if the copying would go beyond the end of either 
the string or the substring. If, for example, 
NUMBER OF BYTES COPIED = 12 4 (0С16), 
the execution time is 
36 * 12 + 200 = 432 +200 = 632 cycles. 

Program Size: 173 bytes. 

Data Memory Required: Six bytes anywhere in 
RAM plus four bytes on page 0. The six bytes 
anywhere in RAM hold the length of the string 
(one byte at address SLEN), the length of the 
substring (one byte at address DLEN), the max- 
imum length of the substring (one byte at address 
MAXLEN), the search counter (one byte at 
address COUNT), the current index into the 
string (one byte at address INDEX), and an error 
flag (one byte at address CPYERR). The four 


bytes on page 0 hold pointers to the string (two ` 


bytes starting at address DSTRG, 0000, in Ше 
listing) and to the substring (two bytes starting at 
address SSTRG, 00D2,, in the listing). 


Procedure: The program exits immediately 
if the number of bytes to copy, the maximum 
length of the substring, or the starting index 
is zero. It also exits immediately if the start- 
ing index exceeds the length of the string. If 
none of these conditions holds, the program 
checks if the number of bytes to copy exceeds 
either the maximum length of the substring 
or the number of characters available in the 
string. If either one is exceeded, the program 
reduces the number of bytes to copy 
appropriately. It then copies the proper num- 
ber of bytes from the string to the substring. 
The program clears the Carry flag if the 
substring can be formed as specified and sets 
the Carry flag if it cannot. 


Special Cases: 

1. If the number of bytes to copy is zero, the 
program assigns the substring a length of zero 
and clears the Carry flag, indicating no error. 

2. If the maximum length of the substring is 
zero, the program assigns the substring a length 
of zero and sets the Carry flag to 1, indicating an 
error. 


3. If the starting index of the substring is zero, 
the program assigns the substring a length of zero 
and sets the Carry flag to 1, indicating an error. 


4. If the source string does not even reach the 
specified starting index, the program assigns the 


substring a length of zero and sets the Carry flag 
to 1, indicating an error. 

5. If the substring would extend beyond the 
end of the source string, the program places all 
the available characters in the substring and sets 
the Carry flag to 1, indicating an error. The 
available characters are the ones from the starting 
index to the end of the string. 

6. If the substring would exceed its specified 
maximum length, the program places only the 
specified maximum number of characters in the 
substring. It sets the Carry flag to 1, indicating an 
error. 
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Entry Conditions 


Order in stack (starting from the top) 


Less significant byte of return address 
More significant byte of return address 


Maximum length of substring (destination 
string) 


Less significant byte of starting address of 
substring (destination string) 

More significant byte of starting address of 
substring (destination string) 


Number of bytes to copy 
Starting index to copy from 


Less significant byte of starting address of 
string (source string) 

More significant byte of starting address of 
string (source string) 


Examples 


String = IOLET Y1 = R7 + X4 
(10,6 = 161015 the length of the string) 


Maximum length of substring = 2 

Number of bytes to copy = 2 

Starting index = 5 

Substring = 02“У1” (2 is the length of the 
substring) | 


Carry = 0, since no problems occur in 
forming the substring 


1. Data: 


Result: 


2. Data: String = 0E‘8657 POWELL ST’ 


(OE), = 141015 the length of the string) 
Maximum length of substring = 105 = 1619 
Number of bytes to copy = 00 = 1310 
Starting index — 06 

Result: Substring = 09*POWELL ST’ (09 is the 
length of the substring) 


Carry = 1, since there were not enough 
characters available in the string to 
provide the specified number of bytes 
to copy. 


Exit Conditions 


Substring contains characters copied from 
string. If the starting index is zero, the max- 
imum length of the substring is zero, or the 
starting index is beyond the length of the 
string, the substring will have a length of zero 
and the Carry flag will be set to 1. If the 
substring would extend beyond the end of 
the string or would exceed its specified max- 
imum length, only the available characters 
from the string (up to the maximum length 
of the substring) are copied into the 
substring; the Carry flag is set in this case 
also. If no problems occur in forming the 
substring, the Carry flag is cleared. 


3. Data: String = 16:9414 HEGENBERGER 
DRIVE? (16,4 = 22,5 is the length 
of the string) 

Maximum length of substring = 1016 
== 1610 

Number of bytes to сору = 1116 = 1719 

Starting index — 06 


Substring = 10'HEGENBERGER DRIV’ 
(106 = 161015 the length of the 
substring) 

Carry = 1, since the number of bytes to 
copy exceeded the maximum length of 
the substring 


Result: 
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; Title Copy a substring from a string ; 
; Name: Copy ; 
; Н 
Н ; 
Purpose: Copy a substring from a string given a starting 


index and the number of bytes. 


Entry: TOP OF STACK 
Low byte of return address, 
High byte of return address, 
Maximum length of destination string, 
Low byte of destination string address, 
High byte of destination string address, 
Number of bytes to copy, 
Starting index to copy from, 
Low byte of source string address, 
High byte of source string address 


A string is a maximum of 255 bytes long plus 
a length byte which precedes it. 


Exit: Destination string := The substring from the 
string. 
if no errors then 
CARRY := 0 
else 
begin 
the following conditions cause an 
error and the CARRY flag = l. 
if (index = 0) or (maxlen = 0) or 
(index > length(sstrg) then 
the destination string will have a zero 
length. 
if (index + count) > length(sstrg)) then 
the destination string becomes everything 
from index to the end of source string. 
END; 


Registers used: All 


Time: Approximately (36 * count) cycles plus 200 
cycles overhead. 

Size: Program 173 bytes 
Data 6 bytes plus 


4 bytes in page zero 


meme чо чо чо че чо ча We че We чо че WE чо че че тө WH чо че WH че зо BVH чо ZO че WO чо VO чо чо чо чо TE vo TH чо че WO чо чо чо че че 


me чо че чо че чо че WOH че чо чо чо WE ча че чо че ча че чо че че чо чо Э0 чо че че че чо че Эс ча чо че че че чо че че че че ч9 че чо WS 


; EQUATES 
DSTRG . EQU орон ;PAGE ZERO POINTER TO DESTINATION STRING 
SSTRG . EQU 002Н | ; PAGE ZERO POINTER TO SOURCE STRING 
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COPY: 


;GET RETURN ADDRESS 


PLA 

TAY ;SAVE LOW BYTE 

PLA 

TAX ;SAVE HIGH BYTE 

; GET MAXIMUM LENGTH OF DESTINATION STRING 
PLA 

STA MAXLEN 

;GET STARTING ADDRESS OF DESTINATION STRING 
PLA 

STA DSTRG ;SAVE LOW BYTE 

PLA 

STA DSTRG+1 ;SAVE HIGH BYTE 
;GET NUMBER OF BYTES TO COPY 

PLA 

STA COUNT 

;GET STARTING INDEX OF SUBSTRING 

PLA 

STA INDEX 

;GET STARTING ADDRESS OF SOURCE STRING 

PLA 

STA SSTRG ;SAVE LOW BYTE (NOTE SSTRG=SOURCE STRING) 
PLA 

STA SSTRG+1 ;SAVE HIGH BYTE 
;RESTORE RETURN ADDRESS 

TXA | 

РНА ;RESTORE HIGH BYTE 
TYA 

PHA ;RESTORE LOW BYTE 


;INITIALIZE LENGTH OF DESTINATION STRING AND THE ERROR FLAG TO O0 
LDA $0 | 

5ТА DLEN ;LENGTH OF DESTINATION STRING IS ZERO 
STA CPYERR ;ASSUME NO ERRORS 


;CHECK FOR ZERO BYTES TO COPY OR ZERO MAXIMUM SUBSTRING LENGTH 

LDA COUNT 

BEQ OKEXIT ;BRANCH IF ZERO BYTES TO COPY, NO ERROR 
; DSTRG WILL JUST HAVE ZERO LENGTH 


LDA MAXLEN 
BEQ EREXIT ;ERROR EXIT IF SUBSTRING HAS ZERO 
; MAXIMUM LENGTH. 
LDA INDEX 
BEQ EREXIT ;ERROR EXIT IF STARTING INDEX IS ZERO 


;CHECK IF THE SOURCE STRING REACHES THE STARTING INDEX 
‚ТЕ NOT, EXIT 
LDY #0 
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LDA (SSTRG) ,Y ;GET LENGTH OF SOURCE STRING 

STA SLEN ;SAVE SOURCE LENGTH 

CMP INDEX ;COMPARE TO STARTING INDEX 

BCC EREXIT ;ERROR EXIT IF INDEX IS TOO LARGE 


;CHECK THAT WE DO NOT COPY BEYOND THE END OF THE SOURCE STRING 
?ТЕ INDEX + COUNT - 1 > LENGTH(SSTRG) THEN 
; COUNT := LENGTH(SSTRG) - INDEX + 1; 


LDA INDEX 

CLC 

ADC COUNT 

BCS RECALC ;BRANCH IF INDEX + COUNT > 255 

TAX 

DEX 

CPX SLEN 

BCC CNT1OK ;BRANCH IF INDEX + COUNT - 1 < LENGTH (SSTRG) 
BEQ CNT10K ;BRANCH IF EQUAL 


;THE CALLER ASKED FOR TOO MANY CHARACTERS JUST RETURN EVERYTHING 
; BETWEEN INDEX AND THE END OF THE SOURCE STRING. 
; SO SET COUNT := LENGTH(SSTRG) - INDEX + 1; 


RECALC: 
LDA SLEN sRECALCULATE COUNT 
SEC 
SBC INDEX 
STA COUNT 
INC COUNT ¿COUNT := LENGTH(SSTRG) - INDEX + 1 
LDA $0FFH 
STA CPYERR ;INDICATE A TRUNCATION OF THE COUNT 
? СНЕСК IF THE COUNT IS LESS THAN OR EQUAL TO THE MAXIMUM LENGTH OF THE 
; DESTINATION STRING. IF NOT, THEN SET COUNT TO THE MAXIMUM LENGTH 
; IF COUNT > MAXLEN THEN 
; COUNT := MAXLEN 
CNTIOK: 
LDA COUNT ;15 COUNT > MAXIMUM SUBSTRING LENGTH ? 
CMP MAXLEN 
BCC CNT20K ;BRANCH IF COUNT < MAX LENGTH 
BEQ CNT 20K ;BRANCH IF COUNT = MAX LENGTH 
LDA MAXLEN 
STA COUNT ;ELSE COUNT := MAXLEN 
LDA #ОРЕН 
STA CPYERR ;INDICATE DESTINATION STRING OVERFLOW 
5 EVERYTHING IS SET UP SO MOVE THE SUBSTRING TO.DESTINATION STRING 
CNT2OK: 
LDX COUNT ¿REGISTER X WILL BE THE COUNTER 
BEQ EREXIT ;ERROR EXIT IF COUNT IS ZERO 
LDA #1 s;START WITH FIRST CHARACTER OF DESTINATION 
STA DLEN ;DLEN IS RUNNING INDEX FOR DESTINATION 
INDEX IS RUNNING INDEX FOR SOURCE 
MVLP: 
LDY INDEX 
LDA (SSTRG) ,Y ;GET NEXT SOURCE CHARACTER 
LDY DLEN 


STA (DSTRG) ,Y ;MOVE NEXT CHARACTER TO DESTINATION 
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INC INDEX ;INCREMENT SOURCE INDEX 
INC DLEN ; INCREMENT DESTINATION INDEX 
DEX ; DECREMENT COUNTER 
BNE MVLP ;CONTINUE UNTIL COUNTER = 0 
DEC DLEN ;SUBSTRING LENGTH=FINAL DESTINATION INDEX - l 
LDA CPYERR ;CHECK FOR ANY ERRORS 
BNE EREXIT ;BRANCH IF A TRUNCATION OR STRING OVERFLOW 
GOOD EXIT 
OKEXIT: 
CLC 
BCC EXIT 
; ERROR EXIT 
EREXIT: 
SEC 
¿STORE LENGTH BYTE IN FRONT OF SUBSTRING 
EXIT: 
LDA DLEN 
LDY #0 
STA (DSTRG) ,Y ¿SET LENGTH OF DESTINATION STRING 
RTS 


, 

;DATA SECTION 
SLEN: . BLOCK 
DLEN: . BLOCK 
MAXLEN: .BLOCK 
COUNT: .BLOCK 
INDEX: .BLOCK 
CPYERR: .BLOCK 


;LENGTH OF SOURCE STRING 

;LENGTH OF DESTINATION STRING 
;MAXIMUM LENGTH OF DESTINATION STRING 
;SEARCH COUNTER 

;CURRENT INDEX INTO STRING 

;COPY ERROR FLAG 


= = ко ва ра 


SAMPLE EXECUTION: 


=e чо «о че чо 
че че чо че чо 


5650804: 
LDA SADR+1  ;PUSH ADDRESS OF SOURCE STRING 
PHA 
LDA SADR 
PHA 
LDA IDX ;PUSH STARTING INDEX FOR COPYING 
PHA 
LDA CNT ;PUSH NUMBER OF CHARACTERS TO COPY 
PHA | | 
LDA DADR*l  ;PUSH ADDRESS OF DESTINATION STRING 
PHA 
LDA DADR 
PHA 
LDA MXLEN ;PUSH MAXIMUM LENGTH OF DESTINATION STRING 
PHA | 


JSR COPY ; COPY 


8D COPY A SUBSTRING FROM A STRING (copy) 367 


l 


BRK ;RESULT OF COPYING 3 CHARACTERS STARTING AT INDEX 4 
;FROM THE STRING "12.345E+10" IS 3,"345" 
JMP SC0804 ;LOOP FOR MORE TESTING 


; 
;DATA SECTION 


IDX ` . BYTE 4 ¿STARTING INDEX FOR COPYING 
CNT . BYTE 3 ;NUMBER OF CHARACTERS TO COPY 
MXLEN . BYTE 20H | ;MAXIMUM LENGTH OF DESTINATION STRING 


SADR . WORD SSTG 
DADR . WORD DSTG 


SSTG .BYTE OAH ;LENGTH OF STRING 

„ВТЕ "12.345E+10 " 32 BYTE MAX LENGTH 
DSTG .ВУТЕ 0 ¿LENGTH OF SUBSTRING 

.BYTE " " 32 BYTE MAX LENGTH 


. END ; PROGRAM 


Delete a Substring from a String (DELETE) 


aE 


Deletes a substring from a string, given a 
starting index and a length. The string is a 
maximum of 255 bytes long and the actual 
characters are preceded by a byte containing 
the length. The Carry flag is cleared if the 
deletion can be performed as specified. The 
Carry flag is set if the starting index is zero or 
beyond the length of the string; the string is 
left unchanged in either case. If the deletion 
extends beyond the end of the string, the 
Carry flag is set (to 1) and only the characters 
from the starting index to the end of the 
String are deleted. 

Procedure: The program exits immediately 


Registers Used: All 


Execution Time: Approximately 


36 + NUMBER OF BYTES MOVED DOWN 
+ 165 


where NUMBER OF BYTES MOVED DOWN is 
zero if the string can be truncated and is STRING 
LENGTH — STARTING INDEX — NUMBER 
OF BYTES TO DELETE + 1 if the string must 
be compacted. 


Examples 
1. STRING LENGTH = 20,6 (32,9) 
STARTING INDEX = 19, (25,9) 
NUMBER OF BYTES TO DELETE - 08 
Since there are exactly eight bytes left in the 


string starting at index 1916, all the routine must 
do is truncate the string. This takes 


36* 0 + 165 = 165 cycles. 


2. STRING LENGTH = 40,6 (64,9) 
STARTING LENGTH = 19,6 (25,9) 
NUMBER OF BYTES TO DELETE - 08 

Since there are 2016 (3216) bytes above the 

truncated area, the routine must move them 
down eight positions. The execution time is 

36 * 32 + 165 = 1152 + 165 = 1317 cycles. 
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if the starting index or the number of bytes to 
delete is zero. It also exits if the starting index 
is beyond the length of the string. If none of 
these conditions holds, the program checks 
to see if the string extends beyond the area to 
be deleted. If it does not, the program simply 
truncates the string by setting the new length 
to the starting index minus 1. If it does, the 
program compacts the resulting string by 
moving the bytes above the deleted area 
down. The program then determines the new 
string’s length and exits with the Carry 
cleared if the specified number of bytes were 
deleted and set to 1 if any errors occurred. 


Program Size: 139 bytes 


Data Memory Required: Five bytes anywhere in 
RAM plus two bytes on page 0. The five bytes 
anywhere in RAM hold the length of the string 
(one byte at address SLEN), the search counter 
(one byte at address COUNT), an index into the 
string (one byte at address INDEX), the source 
index for use during the move (one byte at 
address SIDX), and an error flag (one byte at 
address DELERR). The two bytes on page 0 hold 
a pointer to the string (starting at address STRG, 
00D0,, in the listing). 


Special Cases: 


1. If the number of bytes to delete is zero, the 
program exits with the Carry flag cleared (no 
errors) and the string unchanged. 


2. If the string does not even extend to the 
specified starting index, the program exits with 
the Carry flag set to 1 (error indicated) and the 
string unchanged. 


3. If the number of bytes to delete exceeds the 
number available, the program deletes all bytes 
from the starting index to the end of the string 
and exits with the Carry flag set to 1 (error indi- 
cated). 


8E DELETE A SUBSTRING FROM A STRING (DELETE) 369 


Entry Conditions 


Order in stack (starting from the top) 


Less significant byte of return address 
More significant byte of return address 


Number of bytes to delete 
Starting index to delete from 


Less significant byte of starting address of 
string 

More significant byte of starting address of 
string 


Exit Conditions 


Substring deleted from string. If no errors 
occur, the Carry flag is cleared. If the starting 
index is zero or beyond the length of the 


String, the Carry flag is set and the string is 


unchanged. If the number of bytes to delete 
would go beyond the end of the string, the 
Carry flag is set and the characters from the 
starting index to the end of the string are 
deleted. 


Examples 


String = IE'SALES FOR MARCH AND 
APRIL 1980' ПЕ == 3049 is the 
length of the string) 

Number of bytes to delete = ОА |, = 10, 


Starting index to delete from = 104 = 
1610 


String = I4'SALES FOR MARCH 1980” 
(1416 = 20:15 the length of the string 
with ten bytes deleted starting with the 
16th character — the deleted material is 
“АКО АРАП”). 


Carry = 0, since no problems occurred in 
the deletion. 


1. Data: 


Result: 


2. Data: String = 28'THE PRICE IS $3.00 ($2.00 
BEFORE JUNE 1)’ (28, = 40), is the 
length of the string). 

Number of bytes to delete = 30, = 48), 
Starting index to delete from = 13, 
= 1910 
Result: String = 12“ТНЕ PRICE IS 83.00” (12, 


= 181015 the length of the string with all 
remaining bytes deleted). 

Carry = 1, since there were not as many 
bytes left in the string as were supposed 
to be deleted. 


Title 


Name: Delete 


че чо чо чо 


Purpose: 


Entry: TOP OF STACK 


=e w чо чо чо че TO че че че We 


Delete a substring from a string 


Delete a substring from a string given a 
starting index and a length. 


Low byte of return address, 

High byte of return address, 

Number of bytes to delete (count), 
Starting index to delete from (index), 
Low byte of string address, 

High byte of string address 


че че че че 


че че we че че че че че чо че чо 
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A string is a maximum of 255 bytes long plus 
a length byte which precedes it. 


Exit: Substring deleted. 
if no errors then 
CARRY := 0 
else 
begin 
the following conditions cause an 
error with the CARRY flag = 1. 
if (index = 0) or (index > length(string) ) 
then do not change the string 
if count is too large then 
delete only the characters from 
index to the end of the string 
end; 


Registers used: All 


Time: Approximately 36 * (LENGTH (STRG) -INDEX-COUNT+1) 
plus 165 cycles overhead. 

Size: Program 139 bytes 
Data 5 bytes plus 


2 bytes in page zero 


че чо чо че Ге чо TO чо MO чо чо чо ча чо We че ча WE че че WO че We WS Be че че чо 


? БОПАТЕ5 


STRG . EQU орон ; PAGE ZERO POINTER TO SOURCE STRING 
DELETE: 
‚СЕТ RETURN ADDRESS 
PLA 
TAY ? ЗАУЕ LOW BYTE 
PLA 
TAX ? ЗАУЕ HIGH BYTE 
? СЕТ NUMBER OF BYTES TO DELETE 
PLA 
STA COUNT 
? СЕТ STARTING INDEX DELETION 
PLA 
STA INDEX 
;GET STARTING ADDRESS OF STRING 
PLA 
STA STRG ;SAVE LOW BYTE 
PLA 
STA STRG+1 ;SAVE HIGH BYTE 


;RESTORE RETURN ADDRESS 
TXA | 


чо чо че "6 че TO чо чо чо NO чо TSO чо WO чо че WO чо We MO VO чо BO We че че че чо 


TRUNC: 


CNTOK: 


PHA 
TYA 
PHA 


8E DELETE A SUBSTRING FROM A STRING (DELETE) 371 


;RESTORE HIGH BYTE 


;RESTORE LOW BYTE 


;INITIALIZE ERROR INDICATOR (DELERR) TO 0 


;GET STRING LENGTH 


;GET LENGTH OF STRING 
;SAVE STRING LENGTH 


;CHECK FOR A NON ZERO COUNT AND INDEX 


LDY #0 

STY DELERR 
LDA (STRG) ,Y 
STA SLEN 

LDA COUNT 
BEQ OKEXIT 
LDA INDEX 
BEQ EREXIT 


;GOOD EXIT IF NOTHING TO DELETE 


;ERROR EXIT IF STARTING INDEX = 0 


;CHECK FOR STARTING INDEX WITHIN THE STRING 


; EXIT IF IT IS NOT 


LDA 
CMP 
BCC 


SLEN 
INDEX 
EREXIT 


;IS INDEX WITHIN THE STRING ? 


;NO, TAKE ERROR EXIT 


;BE SURE THE NUMBER OF CHARACTERS REQUESTED TO BE DELETED ARE PRESENT 
; IF NOT THEN ONLY DELETE FROM THE INDEX TO THE END OF THE STRING 


LDA 
CLC 
ADC 
BCS 
STA 
TAX 
DEX 
CPX 
BCC 


BEQ 


LDA 
STA 


INDEX 
COUNT 


TRUNC 
SIDX 


SLEN 
CNTOK 
TRUNC 


#0ЕЕН 
DELERR 


;TRUNCATE IF INDEX + COUNT > 255 
;SAVE INDEX + COUNT AS THE SOURCE INDEX 
;X - INDEX t COUNT 


 ;BRANCH IF INDEX + COUNT - 1 < LENGTH (SSTRG) 


;ELSE JUST TRUNCATE THE STRING 
;TRUNCATE BUT NO ERROR (EXACTLY ENOUGH 
; CHARACTERS) 


;INDICATE ERROR - NOT ENOUGH CHARACTERS TO 


; DELETE 


? TRUNCATE THE STRING - NO COMPACTING NECESSARY 


LDX 
DEX 
STX 
LDA 
BEQ 
BNE 


INDEX 


SLEN 

DELERR 
OKEXIT 
EREXIT 


;STRING LENGTH - STARTING INDEX - 1 


;GOOD EXIT 


;ERROR EXIT 


;DELETE THE SUBSTRING BY COMPACTING 
; MOVE ALL CHARACTERS ABOVE THE DELETED AREA DOWN 


;CALCULATE NUMBER OF CHARACTERS TO MOVE (SLEN - SIDX + 1) 
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LDA SLEN GET STRING LENGTH 
SEC 
SBC SIDX ; SUBTRACT STARTING INDEX 
TAX 
INX :ADD l TO INCLUDE LAST CHARACTER 
BEQ OKEXIT ¿BRANCH IF COUNT = 0 
MVLP: 
LDY SIDX 
LDA (STRG) ,Y ¿GET NEXT CHARACTER 
LDY INDEX 
STA (STRG) ,Y sMOVE IT DOWN 
INC INDEX ? INCREMENT DESTINATION INDEX 
INC SIDX es INCREMENT SOURCE INDEX 
DEX :DECREMENT COUNTER 
BNE MVLP CONTINUE UNTIL COUNTER = 0 
LDX INDEX 
DEX ¿STRING LENGTH = FINAL DESTINATION INDEX - 1 
STX SLEN 
‚СООО EXIT 
OKEXIT: 
CLC 
BCC EXIT 
:ERROR EXIT 
EREXIT: 
SEC 
EXIT: 
LDA SLEN 
LDY #0 
STA (STRG) ,Y ;SET LENGTH OF STRING 
RTS 
; 
; DATA 
SLEN: .BLOCK 1 ¿LENGTH OF SOURCE STRING 
COUNT: .BLOCK 1 SEARCH COUNTER 
INDEX: .BLOCK 1 ¿CURRENT INDEX INTO STRING 
SIDX: ‚ВОСК 1 ;SOURCE INDEX DURING MOVE 
DELERR: .BLOCK 1 ¿DELETE ERROR FLAG 
; ; 
i ; 
; SAMPLE EXECUTION: ; 
Н ; 
; ; 
SC0805: 


LDA 
PHA 
LDA 
PHA 
LDA 


SADR+1 
SADR 


IDX 


;PUSH STRING ADDRESS 


;PUSH STARTING INDEX FOR DELETION 


PHA 
LDA 
PHA 
JSR 
BRK 


JMP 


; 
;DATA SECTION 


IDX . BYTE 
CNT . BYTE 
SADR . WORD 
SSTG . BYTE 
. BYTE 
. END 


CNT 


DELETE 


SC0805 


1 

4 
SSTG 
12 
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;PUSH NUMBER OF CHARACTERS TO DELETE 


; DELETE 

;RESULT OF DELETING 4 CHARACTERS STARTING AT INDEX 1 
; FROM "JOE HANDOVER" IS "HANDOVER" 

;LOOP FOR ANOTHER TEST 


;INDEX TO START OF DELETION 
;NUMBER OF CHARACTERS TO DELETE 


;LENGTH OF STRING 


"JOE HANDOVER" 


; PROGRAM 


Insert a Substring into a String (INSERT) 


ВЕ 


Inserts а substring into a string, given a 
starting index. The string and substring are 
both a maximum of 255 bytes long and the 
actual characters are preceded by a byte con- 
taining the length. The Carry flag is cleared if 
the insertion can be accomplished with no 
problems. The Carry flag is set if the starting 
index is zero or beyond the length of the 
string. In the second case, the substring is 
concatenated to the end of the string. The 
Carry flag is also set if the string with the 
insertion would exceed a specified maximum 
length; in that case, the program inserts only 
enough of the substring to give the string its 
maximum length. 

Procedure: The program exits immediately 
if the starting index is zero or if the length of 
the substring is zero. If neither of these con- 
ditions holds, the program checks to see if 
the insertion would produce a string longer 


Registers Used: All 


Execution Time: Approximately 36 * NUMBER 
OF BYTES MOVED + 36 * NUMBER OF 
BYTES INSERTED + 207 


NUMBER OF BYTES MOVED is the number of 
bytes that must be moved to open up space for 
the insertion. If the starting index is beyond the 
end of the string, this is zero since the substring is 
simply concatenated to the string. Otherwise, this 
is STRING LENGTH — STARTING INDEX + 


1, since the bytes at or above the starting index 
must be moved. 


NUMBER OF BYTES INSERTED is the length 
of the substring if no truncation occurs. It is the 
maximum length of the string minus its current 
length if inserting the substring would produce a 
string longer than the maximum. 
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than the maximum. If it would, the program 
truncates the substring. The program then 
checks to see if the starting index is within 
the string. If it is not, the program simply 
concatenates the substring by moving it to 
the memory locations immediately after the 
end of the string. If the starting index is 
within the string, the program must first open 
a space for the insertion by moving the 
remaining characters up in memory. This 
move must start at the highest address to 
avoid writing over any data. Finally, the pro- 
gram can move the substring into the open 
area. The program then determines the new 
string length and exits with the Carry flag set 
appropriately (to 0 if no problems occurred 
and to 1 if the starting index was zero, the 
substring had to be truncated, or the starting 
index was beyond the length of the string). 


Examples 

1. STRING LENGTH = 20,, (32,9) 
STARTING INDEX = 19|, (25,9) 
MAXIMUM LENGTH = 30,, (48,9 
SUBSTRING LENGTH - 06 


That is, we want to insert a substring six bytes 
long, starting at the 25th character. Since there - 
are eight bytes that must be moved up (20,4 — 
19,6 + 1 = NUMBER OF BYTES MOVED) and 
six bytes that must be inserted, the execution 
time is approximately 


36 *8 + 36* 6 + 207 = 288 + 216 + 207 
= 711 cycles. 

2. STRING LENGTH = 20,6 (32,9) 
STARTING INDEX = 19, (25,9) 
MAXIMUM LENGTH = 24, (36,0) 
SUBSTRING LENGTH - 06 


As opposed to Example 1, here only four bytes 
of the substring can be inserted without exceed- 
ing the maximum length of the string. Thus 
NUMBER OF BYTES MOVED - 8 and NUM- 
BER OF BYTES INSERTED - 4. The execution 
time is approximately 


36*8 + 36*4 + 207 = 288 + 144 + 207 
= 639 cycles. 


Program Size: 212 bytes 


Data Memory Required: Seven bytes anywhere 
in RAM plus four bytes on page 0. The seven 
bytes anywhere in RAM hold the length of the 
string (one byte at address SLEN), the length of 
the substring (one byte at address SUBLEN), the 
maximum length of the string (one byte at 
address MAXLEN), the current index into the 
string (one byte at address INDEX), running 
indexes for use during the move (one byte at 
address SIDX and one byte at address DIDX), 
and an error flag (one byte at address INSERR). 
The four bytes on page 0 hold pointers to the 
substring (two bytes starting at address SUBSTG, 
00006 in the listing) and the string (two bytes 
starting at address STRG, 00D2,, in the listing). 


Entry Conditions 


Order in stack (starting from the top) 


Less significant byte of return address 
More significant byte of return address 


Less significant byte of starting address of 
substring | 

More significant byte of starting address of 
substring 


Maximum length of string 
Starting index at which to insert the sübstring 


Less significant byte of starting address of 
string 

More significant byte of starting address of 
string 
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Special Cases: 

1. If the length of the substring (the insertion) 
is zero, the program exits with the Carry flag 
cleared (no error) and the string unchanged. 


2. Íf the starting index for the insertion is zero 
(i.e., the insertion begins in the length byte), the 
program exits with the Carry flag set to 1 (indicat- 
ing an error) and the string unchanged. 


3. If the string with the substring inserted 
exceeds the specified maximum length, the pro- 
gram inserts only enough characters to reach the 
maximum length. The Carry flag is set to 1 to 
indicate that the insertion has been truncated. 


4. If the starting index of the insertion is 
beyond the end of the string, the program con- 
catenates the insertion at the end of the string 
and indicates an error by setting the Carry flag to 


5. If the original length of the string exceeds its 
specified maximum length, the program exits 
with the Carry flag set to 1 (indicating an error) 
and the string unchanged. ` 


Exit Conditions 


Substring inserted into string. If no errors 
occur, the Carry flag is cleared. If the starting 
index is zero or the length of the substring is 
zero, the Carry flag is set and the string is not 
changed. If the starting index is beyond the 
length of the string, the Carry flag is set and 
the substring is concatenated to the end of 
the string. If the string with the substring 
inserted would exceed the specified max- 
imum length, the Carry flag is set and only 
those characters from the substring which 


bring the string to maximum length are 


inserted. 
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me me чо че 


the following conditions cause the 
CARRY flag to be set. 
if index = 0 then 
do not insert the substring 
if length(strg) > maximum length then 
do not insert the substring 


Examples 

1. Data: String = OA‘JOHN SMITH’ (0А | = 1010 2. Data: String = 0A'JOHN SMITH’ (0А = 10,0 
is the length of the string) is the length of the string) 
Substring = 08'WILLIAM ' (08 is the Substring = 0C'ROCKEFELLER ' (0С, 
length of the substring) = 12 15 the length of the substring) 
Maximum length of string = 1416 200 Maximum length of string = 14 = 20,9 
Starting index = 06 Starting index = 06 

Result: String = 12‘JOHN WILLIAM SMITH’ Result: String = 14'JOHN 

(1216 = 1816 is the length of the string ROCKEFELLESMITH' (14 6 = 20,9 is 
with the substring inserted). the length of the string with as much of the 
Carry = 0, since no problems occurred in substring inserted as the maximum length 
the insertion. would allow) 

Carry = 1, since some of the substring 
could not be inserted without exceeding 
the maximum length of the string. 

Title Insert a substring into a string ; 
Name: | Insert ; 
i 

; 

Purpose: Insert a substring into a string given a ; 
starting index. } 

Entry: TOP OF STACK ; 
Low byte of return address, ; 

High byte of return address, ; 

Low byte of substring address, ; 

High byte of substring address, ; 

Maximum length of (source) string, ; 

Starting index to insert the substring, ; 

Low byte of (source) string address, Н 

High byte of (source) string address ; 

A string is a maximum of 255 bytes long plus ; 

a length byte which precedes it. ; 

; 

Exit: Substring inserted into string. I 
if no errors then ; 

CARRY = 0 ; 

else ; 

begin ; 

; 

; 

; 


чо me чо чо wo BO WTO че чо че WO че чо TO че BO че че WH че ча TO чо че че че че WS 


ча ча о ча ча ча ча ча ча WH ча WO “Зе ъё WS ча ча че WS че 


еп 
Registers used: All 


Time: Appr 
36 
36 
207 


Size: Prog 
Data 


; EQUATES 
SUBSTG .EQU орон 
STRG . EQU 0D2H 


INSERT: 


;GET RETURN ADDRESS 
PLA 
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if index > length(strg) then 
concatenate substg onto the end of the 
source string 

if length(strg)+length(substring) > maxlen 
then insert only enough of the substring 
to reach maximum length 

d; 


oximately 

* (LENGTH(STRG) - INDEX + 1) + 
* (LENGTH (SUBSTG)) + 

cycles overhead. 


ram 214 bytes 


7 bytes plus 
4 bytes in page zero 


;PAGE ZERO POINTER TO SUBSTRING 
; PAGE ZERO POINTER TO STRING 


;SAVE LOW BYTE 


;SAVE HIGH BYTE 


;GET STARTING ADDRESS OF SUBSTRING 


;SAVE LOW BYTE 


;SAVE HIGH BYTE 


;GET STARTING ADDRESS OF SOURCE STRING 


? БАУЕ LOW BYTE 


;SAVE HIGH BYTE 


TAY 

PLA 

TAX 

PLA 

STA SUBSTG 

PLA 

STA SUBSTG+1 

;GET MAXIMUM LENGTH OF STRING 
PLA 

STA MAXLEN 

;GET STARTING INDEX for insertion 
PLA 

STA INDEX 

PLA 

STA STRG 

PLA 

STA STRG+1] 

; RESTORE RETURN ADDRESS 

TXA 

PHA 


TYA 


¿RESTORE HIGH BYTE 
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IDXO: 


CHKLEN: 


TRUNC: 


IDXLEN: 


PHA 

;ASSUME NO ERRORS 
LDA #0 

STA INSERR 


;RESTORE LOW BYTE 


;ASSUME NO ERRORS WILL BE FOUND 


;GET SUBSTRING AND STRING LENGTHS 
; IF LENGTH(SUBSTG) = 0 THEN EXIT BUT NO ERROR 


#0 

(STRG) ,Y 

SLEN ;GET LENGTH OF STRING 

(SUBSTG) ,Y 

SUBLEN ;GET LENGTH OF SUBSTRING 

IDXO 

OKEXIT ;EXIT IF NOTHING TO INSERT (NO ERROR) 
STARTING INDEX IS ZERO THEN ERROR EXIT 

INDEX 

CHKLEN ;BRANCH IF INDEX NOT EQUAL 0 

EREXIT ;ELSE ERROR EXIT 


;CHECK THAT THE RESULTING STRING AFTER THE INSERTION FITS IN THE 


; SOURCE STRING. 
; TRUNCATION FLAG. 


LDA 
CLC 
ADC 
BCS 
CMP 
BCC 
BEQ 


SUBLEN 


SLEN 
TRUNC 
MAXLEN 
IDXLEN 
IDXLEN 


IF NOT THEN TRUNCATE THE SUBSTRING AND SET THE 
;GET SUBSTRING LENGTH 
;TRUNCATE SUBSTRING IF NEW LENGTH > 255 


;BRANCH IF NEW LENGTH < MAX LENGTH 
;BRANCH IF NEW LENGTH - MAX LENGTH 


;SUBSTRING DOES NOT FIT, SO TRUNCATE IT 


LDA 


MAXLEN 


SLEN 
EREXIT 
EREXIT 


SUBLEN 
#0ЕЕН 
INSERR 


;SUBSTRING LENGTH = MAXIMUM LENGTH - STRING 
; LENGTH 


;ERROR EXIT IF MAXIMUM LENGTH < STRING LENGTH 
;ERROR EXIT IF SUBSTRING LENGTH IS ZERO 
; (THE ORIGINAL STRING WAS TOO LONG !!) 


, 


;INDICATE SUBSTRING WAS TRUNCATED 


¿CHECK THAT INDEX IS WITHIN THE STRING. IF NOT CONCATENATE THE 


LDA 
CMP 
BCS 
LDX 


INX 


SLEN 
INDEX 
LENOK 
SLEN 


; SUBSTRING ONTO THE END OF THE STRING. 


;GET STRING LENGTH 

:СОМРАКЕ TO INDEX 

¿BRANCH IF STARTING INDEX IS WITHIN STRING 
;ELSE JUST CONCATENATE (PLACE SUBSTRING AT 
; END OF STRING) 


LENOK: 


OPNLP: 


MVESUB: 


MVELP: 


STX 
LDA 
STA 
LDA 
CLC 
ADC 
STA 
JMP 


INDEX 
$OFFH 
INSERR 
SLEN 


SUBLEN 
SLEN 
MVESUB 
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;START RIGHT AFTER END OF STRING 


? INDICATE ERROR IN INSERT 
;ADD SUBSTRING LENGTH TO STRING LENGTH 


;JUST PERFORM MOVE, NOTHING TO OPEN UP 


;OPEN UP A SPACE IN SOURCE STRING FOR THE SUBSTRING BY MOVING THE 
; CHARACTERS FROM THE END OF THE SOURCE STRING DOWN TO INDEX, UP BY 
; THE SIZE OF THE SUBSTRING. 


;CALCULATE NUMBER OF CHARACTERS TO MOVE 
:= STRING LENGTH - STARTING INDEX + 1 


; COUNT 


LDA 
SEC 
SBC 
TAX 
INX 


SLEN 


INDEX 


;X - NUMBER OF CHARACTERS TO MOVE 


;SET THE SOURCE INDEX AND CALCULATE THE DESTINATION INDEX 


LDA 
STA 
CLC 
ADC 
STA 
STA 


LDY 
LDA 
LDY 
STA 
DEC 
DEC 
DEX 
BNE 


SLEN 
SIDX 


SUBLEN 
DIDX 
SLEN 


SIDX 
(STRG) ,Y 
DIDX 
(STRG) ,Y 
SIDX 
DIDX 


OPNLP 


;SOURCE ENDS AT END OF ORIGINAL STRING 


;DESTINATION ENDS FURTHER BY SUBSTRING LENGTH 
;SET THE NEW LENGTH TO THIS VALUE ALSO 


;GET NEXT CHARACTER 


;MOVE IT UP IN MEMORY 
;DECREMENT SOURCE INDEX 
;DECREMENT DESTINATION INDEX 
;DECREMENT COUNTER 

;CONTINUE UNTIL COUNTER = 0 


;MOVE THE SUBSTRING INTO THE OPEN AREA 


LDA 
STA 


LDX 


LDY 
LDA 
LDY 
STA 
INC 
INC 
DEX 
BNE 
LDA 


#1 
SIDX 


SUBLEN 


SIDX 
(SUBSTG) ,Y 
INDEX 
(STRG) ,Y 
SIDX 

INDEX 


MVELP 
INSERR 


;START AT ONE IN THE SUBSTRING 
¿START AT INDEX IN THE STRING 
;X = NUMBER OF CHARACTERS TO MOVE 


;GET NEXT CHARACTER 


;STORE CHARACTER 

;INCREMENT SUBSTRING INDEX 
;INCREMENT STRING INDEX 
;DECREMENT COUNT 

;CONTINUE UNTIL COUNTER = 0 
; GET ERROR FLAG 


ЗВО STRING MANIPULATIONS 


BNE EREXIT ;BRANCH IF SUBSTRING WAS TRUNCATED 
OKEXIT: 
CLC zNO ERROR 
BCC EXIT 
EREXIT: 
SEC sERROR EXIT 
EXIT: 
LDA SLEN 
LDY $0 
STA (STRG),Y sSET NEW LENGTH OF STRING 
| RTS 
7 
DATA SECTION 
SLEN: .BLOCK 1 LENGTH OF STRING 
SUBLEN: .BLOCK 1 LENGTH OF SUBSTRING 
MAXLEN: .BLOCK 1l :MAXIMUM LENGTH OF STRING 
INDEX: ‚ВОСК 1 sCURRENT INDEX INTO STRING 
SIDX: ‚ВОСК 1 ;А RUNNING INDEX 
DIDX: .ВЬОСК 1 зА RUNNING INDEX 
INSERR: .BLOCK 1 ¿FLAG USED TO INDICATE IF AN ERROR 


че че ча че че 


5С0806: 

LDA SADR+1  ;PUSH ADDRESS OF SOURCE STRING 

PHA 

LDA SADR 

PHA 

LDA IDX ;PUSH STARTING INDEX FOR INSERTION 

PHA 

LDA MXLEN ;PUSH MAXIMUM LENGTH OF SOURCE STRING 

PHA 

LDA SUBADR+1 ;PUSH ADDRESS OF THE SUBSTRING 

PHA 

LDA SUBADR 

PHA 

JSR INSERT  ;INSERT 

BRK ;RESULT OF INSERTING "-" INTO "123456" AT 

; INDEX 1 IS "-123456" 

JMP SC0806 ;LOOP FOR ANOTHER TEST 
, 
;DATA SECTION 
IDX .. BYTE 1 ;INDEX TO START INSERTION 
MXLEN . BYTE 20H ? МАХТМОМ LENGTH OF DESTINATION 
SADR .WORD STG ;STARTING ADDRESS OF STRING 
SUBADR .WORD SSTG ;STARTING ADDRESS OF SUBSTRING 
STG . BYTE 06H ;LENGTH OF STRING 


SAMPLE EXECUTION: 


=e че чо че чо 


8F INSERT A SUBSTRING INTO A STRING (INSERT) 381 


.BYTE "123456 | | " ;32 BYTE MAX LENGTH 
SSTG .BYTE 1 ;LENGTH OF SUBSTRING 
.BYTE "= " ;32 BYTE MAX LENGTH 


. END ; PROGRAM 


8-Bit Array Summation (ASUM8). 


9A 


Adds the elements of a byte-length array, 
producing a 16-bit sum. The size of the array 
is specified and is a maximum of 255 bytes. 

Procedure: The program clears both bytes 
of the sum initially. It then adds the elements 
successively to the less significant byte of the 
sum, starting with the element at the highest 
address. Whenever an addition produces a 
carry, the program increments the more sig- 
nificant byte of the sum. 


Entry Conditions 


(A) = More significant byte of starting 
address of array 


(Y) = Less significant byte of starting 
address of array 


(X) = Size of array in bytes 


Example 

Data: Size of array (in bytes) = (X) = 08 
Array elements 
F716 = 24710 
2316 = 3510 
316 = 4910 
70,6 = 11210 
ЗА 16 = 9019 
1616 = 2210 
CB; = 203,0 
Eljg = 225% 
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Registers Used: All 


Execution Time: Approximately 16 cycles per 
byte plus 39 cycles overhead. If, for example, (X) 
= Ais = 260, the execution time is approx- 
imately 

16 » 26 + 39 = 416 + 39 = 455 cycles. 


Program Size: 30 bytes 


Data Memory Required: Two bytes on page 0 to 
hold a pointer to the array (starting at address 
ARY ADR, 00D0,, in the listing). 


Special Case: An array size of zero causes an 
immediate exit with the sum equal to zero. 


Exit Conditions 


(A) — More significant byte of sum 
(Y) — Less significant byte of sum 


Result: Sum = 03D7,, = 983,5 


(A) = more significant byte of sum 


(Y) = less significant byte of sum = D7,, 


“с че че чо 


me чо че че че ча чо чо че чо чо We че чо че чо че че че че 


Title 
Name: 


Purpose: 


Entry: 


Exit: 


Registers used: 


Time: 


Size: 


; EQUATES SECTION 


ARYADR: 
ASUMS8: 


ASUM81: 


SUMLP: 


. EQU 


? 


ODOH 
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8 BIT ARRAY SUMMATION 


ASUM8 


SUM the 
result. 


Register 
Register 
Register 


Register 
Register 


All 


data of an array, yielding a 16 bit 
Maximum size is 255. 


A = High byte of starting array address 
Y = Low byte of starting array address 
X = Size of array in bytes 

A = High byte of sum 

Y = Low byte of sum 


Approximately 16 cycles per byte plus 
39 cycles overhead. 


Program 
Data 


;STORE STARTING ADDRESS 


30 bytes 
2 bytes in page zero 


;PAGE ZERO POINTER TO ARRAY 


;DECREMENT STARTING ADDRESS BY 1 FOR EFFICIENT PROCESSING 


;GET LOW BYTE OF STARTING ADDRESS 
;1S LOW BYTE ZERO ? 

;YES, BORROW FROM HIGH BYTE 
;ALWAYS DECREMENT LOW BYTE 


;EXIT IF LENGTH OF ARRAY IS ZERO 


STY ARYADR 
STA ARYADR+1 
TYA 

BNE ASUM81 
DEC АКУАОК+1 
DEC ARYADR 
TXA 

TAY 

BEQ EXIT 

; INITIALIZATION 
LDA #0 

ТАХ 


; SUMMATION LOOP 


CLC 
ADC 
BCC 
INX 


(ARYADR) ,Y 


DECCNT 


;EXIT IF LENGTH IS ZERO 


;INITIALIZE SUM TO 0 


;ADD NEXT BYTE TO LSB OF SUM 


;INCREMENT MSB OF SUM IF A CARRY OCCURS 


че чо че чо 


зо че ЭГ че чо че че че че Ne TO че чо че 60 чо чо чо Че чо 
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DECCNT: 


EXIT: 


че зо че че чо 


? 

SC0901: 
LDY 
LDA 
LDX 
JSR 
BRK 


JMP 


SUMLP 


SAMPLE EXECUTION 


BUFADR 
ВОЕАОК + 1 
BUF SZ 
ASUM8 


5С0901 


? DECREMENT COUNT 
;CONTINUE UNTIL REGISTER Y EQUALS 0 


;REGISTER Y 
;REGISTER A 


LOW BYTE OF SUM 
HIGH BYTE OF SUM 


=e avo че че чо 


;Y IS LOW BYTE OF BUFFER ADDRESS 
;А IS HIGH BYTE OF BUFFER ADDRESS 
;X IS SIZE OF BUFFER 


;SUM OF THE INITIAL TEST DATA IS 07F8 HEX, 
; REGISTER A = 07, REGISTER Y = F8H 


;TEST DATA, CHANGE FOR OTHER VALUES 


SIZE . EQU 
BUFADR: .WORD 


BUFSZ:  .BYTE 


BUF : . BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 


. END 


010H 
BUF 


SIZE 


00H 
llH 


;SIZE OF BUFFER 
;STARTING ADDRESS OF BUFFER 


;SIZE OF BUFFER 
;BUFFER 
;DECIMAL ELEMENTS ARE 0,17,34,51,68 


; 85,102,119,136,153,170,187, 204 
; 221,238,255 


;SUM = 07Е8 (2040 DECIMAL) 
; PROGRAM 


16-Bit Array Summation (ASUM16) 


9B 


A dds the elements of a word-length array, 
producing a 24-bit sum. The size of the array 
is specified and is a maximum of 255 16-bit 
words. The 16-bit elements are stored in the 
usual 6502 style with the less significant byte 
first. 

Procedure: The program clears a 24-bit 
accumulator in three bytes of memory and 
then adds the elements to the memory 
accumulator, starting at the lowest address. 
The most significant byte of the memory 
accumulator is incremented each time the 
addition of the more significant byte of an 
element and the middle byte of the sum pro- 
duces a carry. If the array occupies more than 
one page of memory, the program must 
increment the more significant byte of the 


Registers Used: All 


Execution Time: Approximately 43 cycles per 
byte plus 46 cycles overhead. If, for example, (X) 
= 126 = 18, the execution time is approx- 
imately 


43 * 18 + 46 = 774 + 46 = 820 cycles. 


Program Size: 60 bytes 


Data Memory Required: Three bytes anywhere 
in RAM plus two bytes on page 0. The three bytes 
anywhere in RAM hold the memory accumulator 
(starting at address SUM); the two bytes on page 
0 hold a pointer to the array (starting at address 
ARY ADR, 00D0,, in the listing). 


Special Case: An array size of 0 causes an 
immediate exit with the sum equal to zero. 


array pointer before proceeding to the second 
page. 


Entry Conditions 


(A) = More significant byte of starting 
address of array 


(Y) = Less significant byte of starting 
address of array 


(X) = Size of array in 16-bit words 


Exit Conditions 


(X) = Most significant byte of sum 


Example 


Data: Size of array (in 16-bit words) = (X) = 08 
Array elements 

F7A 116 = 63,3931 

239В = 9,1156 

310516 = 12,757, 

70F2,, = 28,9141, 

54361, = 23,0941, 

166C,, = 5,7400 
CBF5,, = 52,213 

E107, = 57,607, 


(А) = Middle byte of sum 
(Y) — Least significant byte of sum 
Result: бит = 03DBAl1,, = 252,833, 


(X) = most significant byte of sum = 0316 
(A) = middle byte of sum = DB, 
(Y) = least significant byte of sum = Al), 
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; Title 16 BIT ARRAY SUMMATION 
; Name: ASUM16 
; 
; 
Purpose: Sum the data of an array, yielding a 24 bit 


result. Maximum size is 255 16 bit elements. 


Entry: Register À = High byte of starting array address 
Register Y = Low byte of starting array address 
Register X = size of array in 16 bit elements 
Exit: Register X - High byte of sum 
Register A = Middle byte of sum 
Register Y = Low byte of sum 


Registers used: All 


Time: Approximately 43 cycles per byte plus 
46 cycles overhead. 

Size: Program 60 bytes 
Data 3 bytes plus 


2 bytes in page zero 


me чо чо чо TO чо чо TO TO чо чо че ao Ve чо VO VO че че че ao WS 


e 
, 


;EQUATES SECTION 


ARYADR: .EQU ODOH ; PAGE ZERO POINTER TO ARRAY 
ASUM16: 
H 
¿STORE STARTING ADDRESS 
STY ARYADR 
STA ARYADR+1 
¿ZERO SUM AND INITIALIZE INDEX 
LDA #0 
STA SUM :50М = 0 
STA SUM+1 
STA SUM+2 
TAY ;INDEX = 0 
;EXIT IF THE ARRAY LENGTH IS ZERO 
TXA 
BEQ EXIT 


? SUMMATION LOOP 


SUMLP: 
LDA SUM 
CLC 
ADC (ARYADR) ,Y ;ADD LOW BYTE OF ELEMENT TO SUM 


STA SUM 


we че чо че 


чо че чо TO чо чо че Ге чо WO чо че ча WE че чо ча че ъ че че WO 


NXTELM: 


DECCNT: 


EXIT: 


;DATA SECTION 


SUM: 


че че че че BO 


5С0902: 


LDA SUM+1 
INY 

ADC (ARYADR) ,Y 
STA SUM+1 
BCC NXTELM 
INC SUM+2 
INY 

BNE DECCNT 
INC АКУАОК+1 
DEX 

BNE SUMLP 
LDY SUM 

LDA SUM+1 
LDX SUM+2 
RTS 

.BLOCK 3 


SAMPLE EXECUTION 


LDY 
LDA 
LDX 
JSR 
BRK 


JMP 


. EQU 

. WORD 
. BYTE 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
‚ WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 


BUFADR 
BUFADR+1 
BUF 52 
ASUM16 


$C0902 


010H 
BUF 
SIZE 
0 
111 
222 
333 
444 
555 
666 
777 
888 
999 
1010 
1111 
1212 
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;INCREMENT INDEX TO HIGH BYTE OF ELEMENT 
;ADD HIGH BYTE WITH CARRY TO SUM 

;STORE IN MIDDLE BYTE OF SUM 

;INCREMENT HIGH BYTE OF SUM IF A CARRY 
;INCREMENT INDEX TO NEXT ARRAY ELEMENT 
;MOVE POINTER TO SECOND PAGE OF ARRAY 

; DECREMENT COUNT 

;CONTINUE UNTIL REGISTER X EQUALS 0 


;Y-LOW BYTE 
;A-MIDDLE BYTE 
;X-HIGH BYTE 


; TEMPORARY 24 BIT ACCUMULATOR IN MEMORY 


чо зо че че Фо 


;A,Y = STARTING ADDRES OF BUFFER 


;X = BUFFER SIZE IN WORDS 

;RESULT OF THE INITIAL TEST DATA IS 12570 
; REGISTER X = 0, REGISTER A = 31H, 

; REGISTER Y = lAH 

; LOOP FOR MORE TESTING 


;SIZE OF BUFFER IN WORDS 
;STARTING ADDRESS OF BUFFER 
;SIZE OF BUFFER IN WORDS 

; BUFFER 
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. WORD 
. WORD 
. WORD 


. END 


1313 
1414 
1515 


; PROGRAM 


, 


SUM 


12570 


311AH 


Find Maximum Byte-Length Element (MAXELM) 


Finds the maximum element in an array 
of unsigned byte-length elements. The size of 
the array is specified and is a maximum of 
255 bytes. 

Procedure: The program exits immediately 
(setting Carry to 1) if the array size is zero. If 
the size is non-zero, the program assumes 


Registers Used: All 


Execution Time: Approximately 15 to 23 cycles 
per byte plus 52 cycles overhead. The extra eight 
cycles are used whenever the supposed max- 
imum and its index must be replaced by the cur- 
rent element and its index. If, on the average, 
that replacement occurs half the time, the execu- 
tion time is approximately 


38 « ARRAY SIZE/2 + 52 cycles. 


If, for example, ARRAY SIZE = 184 = 24,6, 
the approximate execution time is 


38 * 12 + 52 = 456 + 52 = 508 cycles. 


Program Size: 45 bytes 


Entry Conditions 


(A) = More significant byte of starting 
address of array 


(Y) — Less significant byte of starting 
address of array 


(X) = Size of array in bytes 


9C 


that the last byte of the array is the largest and 
then proceeds backward through the array, 
comparing the supposedly largest element to 
the current element and retaining the larger 
value and its index. Finally, the program 
clears the Carry to indicate a valid result. 


Data Memory Required: One byte anywhere in 
RAM plus two bytes on page 0. The one byte any- 
where in RAM holds the index of the largest ele- 
ment (at address INDEX). The two bytes on page 
0 hold a pointer to the array (starting at address 
ARYADR, 00D0,, in the listing). 


Special Cases: 


1. An array size of 0 causes an immediate exit 
with the Carry flag set to 1 to indicate an invalid 
result. 


2. If more than one element has the largest 
unsigned value, the program returns with the 
smallest possible index. That is, the index desig- 
nates the occurrence of the maximum value 
closest to the starting address. 


Exit Conditions 


(A) = Largest unsigned element 
(Y) = Index to largest unsigned element 


Carry = O if result is valid, 1 if size of array is 
0 and result is meaningless. 


Example 

Data: Size of array (in bytes) = (X) = 08 
Array elements 
3516 = 5310 4416 = 6810 
Абу = 16610 5916 = 8910 
D216 = 210% 7A, = 122% 
Във 27, CF i = 207 


Result: The largest unsigned element is element 


+2 (D216 = 210,9) 

(A) = largest element (D2,,) 

(Y) = index to largest element (02) 
Carry flag = 0, indicating that array size is 
non-zero and the result is valid 
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; Title Find the maximum element in an array of unsigned; 
; bytes. ; 
2 Name: MAXELM ; 
; ; 
; ; 
Purpose: Given the starting address of an array and 


the size of the array, find the largest element 


Entry: Register A 
Register Y 
Register X 


High byte of starting address 
Low byte of starting address 
Size of array in bytes 


Exit: If size of the array is not zero then 

CARRY FLAG 0 

Register A Largest element 

Register Y Index to that element 
if there are duplicate values of the largest 
element, register Y will have the index 
nearest to the first array element 

else 
CARRY flag = 1 


Registers used: All 


Time: Approximately 15 to 23 cycles per byte 
plus 52 cycles overhead. 

Size: Program 45 bytes 
Data l byte plus 


2 bytes in page zero 


че че wo чо чо TO че че ча че “6 чо че че че че чо чо че че че че чо че чо че че чо 


чо чо чо чо TO TO чо чо чо чо чо “30 чо чо WE чо We чо чо WS че WE ча VS че че че ә 


; EQUATES 
ARYADR: .EQU ODOH ; PAGE ZERO FOR ARRAY POINTER 
MAXELM: 

sSTORE STARTING ARRAY ADDRESS 

STA ARYADR+1 

STY ARYADR 

;SUBTRACT 1 FROM STARTING ADDRESS TO INDEX FROM 1 TO SIZE 

TYA . 

BNE MAXI 

DEC ARYADR+1 :BORROW FROM HIGH BYTE IF LOW BYTE = 0 
МАХ]: DEC ARYADR sALWAYS DECREMENT THE LOW BYTE 


;TEST FOR SIZE EQUAL TO ZERO AND INITIALIZE TEMPORARIES 


TXA — 

BEQ EREXIT ;ERROR EXIT IF SIZE IS ZERO 
TAY ;REGISTER Y = SIZE AND INDEX 
LDA (ARYADR) ,Y ;GET LAST BYTE OF ARRAY 


STY INDEX ;SAVE ITS INDEX 
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DEY 
BEQ OKEXIT ;EXIT IF ONLY ONE ELEMENT 


;WORK FROM THE END OF THE ARRAY TOWARDS THE BEGINNING COMPARING 
; AGAINST THE CURRENT MAXIMUM WHICH IS IN REGISTER A 


MAXLP: 
CMP (ARYADR) ,Y 
BEQ NEWIDX ;REPLACE INDEX ONLY IF ELEMENT - MAXIMUM 
BCS NXTBYT ;BRANCH IF CURRENT MAXIMUM » ARY[Y] 
;ELSE ARY[Y] >= CURRENT MAXIMUM SO 
LDA (ARYADR),Y ; NEW CURRENT MAXIMUM AND 
NEWIDX: STY INDEX ; NEW INDEX 
NXTBYT: 
DEY ;DECREMENT TO NEXT ELEMENT 
BNE MAXLP ; CONTINUE 
; 
;EXIT 
OKEXIT: 
LDY INDEX ;GET INDEX OF THE MAXIMUM ELEMENT 
DEY ;NORMALIZE INDEX TO (0,SIZE-1) 
CLC ;NO ERRORS 
RTS 
EREXIT: 
SEC ;ERROR, NO ELEMENTS IN THE ARRAY 
RTS 
;DATA SECTION 
INDEX: .BLOCK 1 ; INDEX OF LARGEST ELEMENT 
; ; 
; ; 
; SAMPLE EXECUTION: ; 
; ; 
SC0903: 
LDA AADR+1 ;А,Ү = STARTING ADDRESS OF ARRAY 
LDY AADR 
LDX #S ZARY ;X = SIZE OF ARRAY 
JSR MAXELM 
BRK ;RESULT FOR THE INITIAL TEST DATA IS 
; A = FF HEX (MAXIMUM), Y=08 (INDEX TO MAXIMUM) 
JMP SC0903 ;LOOP FOR MORE TESTING 
SZARY:  .EQU 10H ;SIZE OF ARRAY 
AADR: | .WORD ARY ;STARTING ADDRESS OF ARRAY 
ARY: .BYTE 8 
.BYTE 7 
.BYTE 6 
.BYTE 5 
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. BYTE 4 
. BYTE 3 
„ BYTE 2 
. BYTE l 


. BYTE OF FH 
. BYTE OFEH 
. BYTE OFDH 
. BYTE OFCH 
BYTE ОЕВН 
. BYTE OFAH 
. BYTE OF 9H 
.BYTE ' OF8H 


. END ; PROGRAM 


Find Minimum Byte-Length Element (MINELM) 


9D 


Finds the minimum element in an array 
of unsigned byte-length elements. The size of 
the array is specified and is a maximum of 
255 bytes. 

Procedure: The program exits im- 
mediately, setting Carry to 1, if the array size 
is zero. If the size is non-zero, the program 


Registers Used: All 


Execution Time: Approximately 15 to 23 cycles 
per byte plus 52 cycles overhead. The extra eight 
cycles are used whenever the supposed minimum 
and its index must be replaced by the current ele- 
ment and its index. If, on the average, that 
replacement occurs half the time, the execution 


time is approximately 
38 * ARRAY SIZE/2 + 52 cycles. 


If, for example, ARRAY SIZE = 14 = 2019, 
the approximate execution time is 


38 * 10 + 52 = 380 + 52 = 432 cycles. 


Program Size: 45 bytes 


Entry Conditions 


(A) = More significant byte of starting 
address of array 


(Y) = Less significant byte of starting 
address of array 


(X) = Size of array in bytes 


assumes that the last byte of the array is the 
smallest and then proceeds backward through 
the array, comparing the supposedly smallest 
element to the current element and retaining 
the smaller value and its index. Finally, the 
program clears the Carry flag to indicate a 
valid result. 


Data Memory Required: One byte anywhere in 
RAM plus two bytes on page 0. The one byte any- 
where in RAM holds the index of the smallest 
element (at address INDEX). The two bytes on 
page 0 hold a pointer to the array (starting at 
address ARY ADR, 00D0,, in the listing). 


Special Cases: 


1. An array size of 0 causes an immediate exit 
with the Carry flag set to 1 to indicate an invalid 
result. 


2. If more than one element has the smallest 
unsigned value, the program returns with the 
smallest possible index. That is, the index desig- 
nates the occurrence of the minimum value 
closest to the starting address. 


Exit Conditions 


(A) = Smallest unsigned element 
(Y) = Index to smallest unsigned element 


Carry = 0 if result is valid, 1 if size of array 
is zero and result is meaningless. 


Example 

Data: Size of array (in bytes) = (X) = 08 
Array elements 
3516 = 5310 44,6 = 68 0 
Аб = 166 0 5916 == 8910 
02% = 210 ТА = 122, 
ІҢ = 2710 CF 6 = 207, 


Result: The smallest unsigned element is element 


#3 (1В = 27,9) 

(A) = smallest element (1В 6) 

(Y) = index to smallest element (03) 
Carry flag = 0, indicating that array size is 
non-zero and the result is valid. 
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: Title Find the minimum element in an array of unsigned; 
; bytes. ; 
H Name: MINELM : 
; ; 
; ; 
Purpose: Given the STARTING ADDRESS and the size of an 


array, find the smallest element. 


Entry: Register A - High byte of starting address 
Register Y - Low byte of starting address 
Register X = Size of array in bytes 


Exit: If size of the array is not zero then 

CARRY FLAG 0 

Register A = Smallest element 

Register Y Index to that element 
if there are duplicate values of the smallest 
element Register Y will have the index 
nearest to the first array element 

else 
CARRY flag = 1 


Registers used: All 


Time: Approximately 15 to 23 cycles per byte 
plus 52 cycles overhead. 

Size: Program 45 bytes 
Data l bytes plus 


2 bytes in page zero 


чо чо чо че TO чо TO чо чо че чо чо че чо чо чо Ve Г TO че TO WE чо 90 че WE че 
чө =e че че чо че We че We че че чо че Г “Зе чо чо чо WE че чо чо чо чо чо че We WO 


; EQUATES 
ARYADR: .EQU орон ; PAGE ZERO POINTER TO ARRAY 
MINELM: 

;STORE STARTING ARRAY ADDRESS 

STA ARYADR+1 

STY ARYADR 

;DECREMENT ARRAY ADDRESS BY 1 TO INDEX FROM 1 TO SIZE 

TYA 

BNE MIN1 

DEC ARYADRt1 ;BORROW FROM HIGH BYTE IF LOW BYTE = 0 
MINI: DEC ARYADR ;ALWAYS DECREMENT THE LOW BYTE 


;TEST FOR SIZE EQUAL TO ZERO AND INITIALIZE TEMPORARIES 


TXA 

BEQ EREXIT ` ¿ERROR EXIT IF SIZE IS ZERO 
TAY ;REGISTER Y = SIZE AND INDEX 
LDA (ARYADR) ,Y ;GET LAST BYTE OF ARRAY 


STY INDEX ;SAVE ITS INDEX 


DEY 
BEQ 


OKEXIT 
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;EXIT IF ONLY ONE ELEMENT 


;WORK FROM THE END OF THE ARRAY TOWARDS THE BEGINNING COMPARING 
; AGAINST THE CURRENT MINIMUM WHICH IS IN REGISTER A 


MINLP: 
CMP (ARYADR),Y 
BEQ NEWIDX 
BCC NXTBYT 
LDA (ARYADR) ,Y 
NEWIDX: STY INDEX 
NXTBYT: 
DEY 
BNE MINLP 
; 
; EXIT 
OKEXIT: 
LDY INDEX 
DEY 
CLC 
RTS 
EREXIT: 
SEC 
RTS 
; DATA SECTION 
INDEX: .BLOCK 1 
; 
$ SAMPLE EXECUTION: 
; 
; 
SC0904: 
LDA AADR+t+1 
LDY AADR 
LDX #SZARY 
JSR MINELM 
BRK 
JMP 5С0904 
SZARY:  .EQU 10H 
AADR: . WORD ARY 
ARY: . BYTE 8 
. BYTE 7 
. BYTE 6 
. BYTE 5 
. BYTE 4 


;REPLACE INDEX IF MINIMUM - ELEMENT 
;BRANCH IF CURRENT MINIMUM « ELEMENT 
;ELSE ELEMENT <= CURRENT MINIMUM 

; NEW CURRENT MINIMUM AND 

; NEW INDEX 


;DECREMENT TO NEXT BYTE 


;GET INDEX OF THE MINIMUM ELEMENT 
;NORMALIZE INDEX TO (0,SIZE-1) 
;NO ERRORS 


;ERROR, NO ELEMENTS IN THE ARRAY 


:ІМБЕХ OF SMALLEST ELEMENT 


че че че vo че 


:А,Ү = STARTING ADDRESS OF ARRAY 
;X = SIZE OF ARRAY 
;RESULT FOR THE INITIAL TEST DATA IS 


; A = 01H (MINIMUM), Y=07 (INDEX TO MINIMUM) 
;LOOP FOR MORE TESTING 


;SIZE OF ARRAY 
;STARTING ADDRESS OF ARRAY 
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. BYTE 3 
. BYTE 2 
. BYTE 1 


. BYTE OFFH . 
. BYTE OF EH 
. BYTE OF DH 
. BYTE OF CH 
. BYTE OF BH 
. BYTE OFAH 
. BYTE OF 9H 
. BYTE OF 8H 


. END ; PROGRAM 


Binary Search (BINSCH) 


Searches an array of unsigned byte-length 
elements for a particular value. The array is 
assumed to be ordered with the smallest 
element at the starting (lowest) address. 
Returns the index to the value and the Carry 
flag cleared if it finds the value; returns the 
Carry flag set to 1 if it does not find the value. 
The size of the array is specified and is a max- 
imum of 255 bytes. The approach used is a 
binary search in which the value is compared 
with the middle element in the remaining 
part of the array; if the two are not equal, the 
part of the array that cannot possibly contain 
the value (because of the ordering) is dis- 
carded and the process is repeated. 

Procedure: The program retains upper and 
lower bounds (indexes) that specify the part 
of the array still being searched. In each itera- 
tion, the new trial index is the average of the 
upper and lower bounds. The program com- 
pares the value and the element with the trial 
index; if the two are not equal, the program 
discards the part of the array that could not 
possibly contain the element. That is, if the 
value is larger than the element with the trial 
index, the part at or below the trial index is 
discarded. If the value is smaller than the ele- 
ment with the trial index, the part at or above 
the trial index is discarded. The program 
exits if it finds a match or if there are no ele- 
ments left to be searched (that is, if the part 
of the array being searched no longer con- 
tains anything). The program sets the Carry 
flag to 1 if it finds the value and to O if it does 
not. 

In the case of Example 1 shown later 
(the value is ОП), the procedure works as 
follows: 


In the first iteration, the lower bound is 


9E 


Registers Used: All 


Execution Time: Approximately 52 cycles per 
iteration plus 80 cycles overhead. A binary search 
will require on the order of log,N iterations, 
where N is the size of the array (number of ele- 
ments). 

If, for example, N — 32, the binary search will 
require approximately log,32 iterations or 5 itera- 
tions. The execution time will then be approx- 
imately 


52 * 5 + 80 = 260 + 80 = 340 cycles. 
Program Size: 89 bytes 


Data Memory Required: Three bytes anywhere 
in RAM plus two bytes on page 0. The three bytes 
anywhere in RAM hold the value being searched 
for (one byte at address VALUE), the lower 
bound of the area being searched (one byte at 
address LBND), and the upper bound of the area 
being searched (one byte at address UBND). The 
two bytes on page 0 hold a pointer to the array 
лаш at address ARYADR, 0000 in Ше list- 
ing). 


Special Case: A size or length of zero causes an 
immediate exit with the Carry flag set to 1. That 
is, the length is assumed to be zero and the value 
surely cannot be found. 


zero and the upper bound is the length of the 
array minus 1 (since we have started our 
indexing at zero). So we have 
LOWER BOUND = 0 
UPPER BOUND = LENGTH - 1 = 0F,, = 1510 
GUESS = (UPPER BOUND + LOWER 
BOUND)/2 = 07 (the result is truncated) 


ARRAY (GUESS) = ARRAY (7) = 10; = 160 


Since our value (0D,,) is less than 
ARRAY (7), there is no use looking at the 
elements with indexes of 7 or more, so we 
have 


LOWER BOUND = 0 
UPPER BOUND = GUESS — 1 = 06 
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GUESS = (UPPER BOUND + LOWER 
BOUND)/2 = 03 
ARRAY (GUESS) = ARRAY(3) = 07 


Since our value (ОО, is greater than 
ARRAY (3), there is no use looking at the 
elements with indexes of 3 or less, so we 
have 

LOWER BOUND = GUESS + 1 = 04 

UPPER BOUND = 06 

GUESS = (UPPER BOUND + LOWER 

BOUND)/2 == 05 
ARRAY (GUESS) = ARRAY(5) = 09 


Since our value (0D,,) is greater than 
АККАУ (5), there is no use looking at the 


Entry Conditions 


Order in stack (starting from the top) 


Less significant byte of return address 
More significant byte of return address 


Value to find 
Size of the array (in bytes) 


Less significant byte of starting address of 
array (address of smallest unsigned ele- 
ment) 

More significant byte of starting address of 
array (address of smallest unsigned ele- 
ment) 


Examples 


Length of array = 1016 = 1610 
Elements of array are 01,6, 0216, 0516, 0716, 0916, 0916, 


1. Data: 
Result: 


Value to find = 00 


Carry = 0, indicating value found 
(A) = 06, the index of the value in the 
array 


elements with indexes of 5 or less, so we 
have | 


LOWER BOUND = GUESS + 1 = 06 

UPPER BOUND = 06 

GUESS = (UPPER BOUND + LOWER 
BOUND)/2 = 06 


ARRAY (GUESS) = ARRAY (6) = 0D,, 


Since our value (0D,,) is equal to 
ARRAY (6), we have found the element. If, 
on the other hand, our value were ОЕ, the 
new lower bound would be 07 and there 
would no longer be any elements in the part 
of the array left to be searched. 


Exit Conditions 


Carry = 0 if the value is found, Carry = 1 
if it is not found. If the value is found, 
(A) = index to the value in the array. 


2. Data: 
Result: 


Value to find = 9В 16 
Carry = 1, indicating value not found 
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; Title Binary Search ; 
; Name: BINSCH Н 
; ; 
; ; 
Purpose: Search an ordered array of unsigned bytes, 


with a maximum size of 255 elements. 


Entry: TOP OF STACK 
Low byte of return address, 
High byte of return address, 
Value to find, 
Length (size) of array, 
Low byte of starting array address, 
High byte of starting array address 


Exit: If the value is found then 
CARRY flag = 0 
Register A = index to the value in the array 
ELSE 
CARRY flag = 1 
Registers used: All 
Time: Approximately 52 cycles for each time through 


the search loop plus 80 cycles overhead. 

A binary search will take on the order of log 
base 2 of N searches, where N is the number of 
elements in the array. 


Size: Program 89 bytes 
Data 3 bytes plus 
2 bytes in page zero 


чо чо чо TO TO WOH чо чо чо че чо чо че VO че чо TO Ve чо VO чо чо WS че TO WH че чо че чо me 
чо че чо TO чо че че чо че че че чо чо зо Ve че че чо чо WS чо TO чо че че чо ao че че do me 


; . | 
;EQUATES SECTION о 
ARYADR: .EQU орон ;PAGE ZERO POINTER TO ARRAY 


; 
BINSCH: 
;GET RETURN ADDRESS 


;GET THE VALUE TO SEARCH FOR 
PLA 
STA VALUE 


;GET THE LENGTH OF THE ARRAY 
PLA 
STA UBND 
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NXTBYT: 


TSTLB: 


;GET THE STARTING ADDRESS OF ARRAY 
PLA 

STA ARYADR 

PLA 

STA ARYADR+1 


;RESTORE THE RETURN ADDRESS 
TXA 
PHA 
TYA 
PHA 


; 
;CHECK THAT LENGTH IS NOT ZERO 


LDX UBND ;GET LENGTH 

BEQ NOTFND ;EXIT NOT FOUND IF LENGTH EQUALS ZERO 
;SET UPPER AND LOWER SEARCH BOUNDS 

DEX 

STX UBND ;UPPER BOUND EQUALS LENGTH MINUS 1 
LDA t0 

STA LBND ;LOWER BOUND EQUALS 0 


;SEARCH LOOP 
; COMPUTE NEXT INDEX TO BE HALF WAY BETWEEN UPPER BOUND AND 
; LOWER BOUND 


LDA UBND 

CLC 

ADC LBND ;ADD LOWER AND UPPER BOUNDS 

ROR A ;DIVIDE BY 2, TRUNCATING FRACTION 
TAY ;REGISTER Y BECOMES INDEX 


;IF INDEX IS GREATER THAN UPPER BOUND THEN THE ELEMENT IS NOT HERE 


CPY UBND 
BEQ TSTLB ;BRANCH IF INDEX EQUALS UPPER BOUND 
BCS NOTFND ;BRANCH IF INDEX IS GREATER THAN UPPER BOUND 


‚ТЕ INDEX IS LESS THAN LOWER BOUND THEN THE ELEMENT IS NOT HERE 


CPY LBND 

BCC NOTFND ;BRANCH IF INDEX IS LESS THAN LOWER BOUND 
;TEST IF WE HAVE FOUND THE ELEMENT 

LDA VALUE 

CMP (ARYADR) ,Y 

BCC SMALL ;BRANCH IF VALUE IS SMALLER THAN ARYADRI[Y] 
BEQ FND ;BRANCH IF FOUND 


; VALUE IS LARGER THAN ARYADR[Y] SO SET LOWER BOUND TO BE 
; Y + 1 (VALUE CAN ONLY BE FURTHER UP) 


a 


INY 

STY LBND 

BNE NXTBYT ¿CONTINUE SEARCHING IF LOWER BOUND DOES NOT 
; OVERFLOW 

BEQ NOTE ND ;BRANCH IF LOWER BOUND OVERFLOWED FROM OFFH 


: TO 0 
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VALUE IS SMALLER THAN ARYADR[Y] SO SET UPPER BOUND TO BE 
Y - 1 (VALUE CAN ONLY BE FURTHER DOWN) 


що vo 


SMALL: 
DEY 
STY UBND 
CPY #ОЕЕН 
BNE NXTBYT ;CONTINUE SEARCHING IF UPPER BOUND DOES NOT 
; UNDERFLOW 
BEQ NOTFND ¿BRANCH IF INDEX UNDERFLOWED 
¿FOUND THE VALUE 
FND: 
CLC ¿INDICATE VALUE FOUND 
TYA ‚СЕТ INDEX OF VALUE TO REGISTER А 
RTS 
;DID NOT FIND THE VALUE 
NOTFND: 
SEC :INDICATE VALUE NOT FOUND 
RTS 


;DATA SECTION 
VALUE . BLOCK 
LBND . BLOCK 
UBND . BLOCK 


; VALUE TO FIND 
;INDEX OF LOWER BOUND 
;INDEX OF UPPER BOUND 


кҥн 


SAMPLE EXECUTION 


с ча че че че 
че чо че че чо 


5С0905: 
;SEARCH FOR А VALUE WHICH IS IN THE ARRAY 
LDA BFADR+1 
PHA ;PUSH HIGH BYTE OF STARTING ADDRESS 
LDA BFADR 
PHA ;PUSH LOW BYTE OF STARTING ADDRESS 
LDA ВЕ52 
РНА ;PUSH LENGTH (SIZE OF ARRAY) 
LDA #7 
PHA ;PUSH VALUE TO FIND 
JSR BINSCH ;SEARCH 
BRK ;CARRY FLAG SHOULD BE 0 AND REGISTER A = 4 
;SEARCH FOR A VALUE WHICH IS NOT IN THE ARRAY 
LDA BFADR+1 
PHA ;PUSH HIGH BYTE OF STARTING ADDRESS 
LDA BFADR 
PHA ;PUSH LOW BYTE OF STARTING 
LDA ЖЕТЕР ; ADDRESS 
PHA ;PUSH LENGTH (SIZE OF ARRA 
-LDA #0 | `: 


PHA ;PUSH VALUE TO FIND 
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JSR 
BRK 


JMP 


. EQU 
. WORD 
. BYTE 


. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 


. END 


BINSCH ;SEARCH 


;CARRY FLAG SHOULD BE 1 


SC0905 ;LOOP FOR MORE TESTS 


010H ;SIZE OF BUFFER 
BF ¿STARTING ADDRESS OF BUFFER 
SIZE SIZE OF BUFFER 

; BUFFER 


: PROGRAM 


Bubble Sort (BUBSRT) 


9F 


Arranges an array of unsigned byte- 
length elements into ascending order using a 
bubble sort algorithm. An iteration of this 
algorithm moves the largest remaining ele- 
ment to the top by comparisons with all other 
elements, performing interchanges if necess- 
ary along the way. The algorithm continues 
until it has either worked its way through all 
elements or has completed an iteration with- 
out interchanging anything. The size of the 
array is specified and is a maximum of 255 
bytes. 

Procedure: The program starts by consider- 
ing the entire array. It examines pairs of ele- 
ments, interchanging them if they are out of 
order and setting a flag to indicate that the 
interchange occurred. At the end of an itera- 
tion, the program checks the interchange flag 
to see if the array is already in order. If it is 
not, the program performs another iteration, 
reducing the number of elements examined 
by one since the largest remaining element 
has been bubbled to the top. The program 
exits immediately if the length of the array is 
less than two, since no ordering is then 


Registers Used: All 


Execution Time: Approximately 
34*N*N + 25 *М + 70 


cycles, where N is the size (length) of the array in 
bytes. If, for example, N is 20, (32,9), Ше execu- 
tion time is approximately 


34 * 32 * 32 + 25 * 32 + 70 = 34 * 1024 + 870 
= 34,816 + 870 = 35,686 cycles. 


Program Size: 79 bytes 


Data Memory Required: Two bytes anywhere in 
RAM plus four bytes on page 0. The two bytes 
anywhere in RAM hold the length of the array 
(one byte at address LEN) and the interchange 
flag (one byte at address XCHGFG). The four 
bytes on page 0 hold pointers to the first and sec- 
ond elements of the array (two bytes starting at 
address AIADR, 0000 in the listing, and two 
bytes starting at address A2ADR, 0002,6 in the 
listing). 


Special Case: A size (or length) of 00 or 01 
causes an immediate exit with no sorting. 


necessary. Note that the number of pairs is 
always one less than the number of elements 
being considered, since the last element has 
no successor. 


Entry Conditions 


Order in stack (starting from the top) 


Less significant byte of return address 
More significant byte of return address 


Length (size) of array in bytes 


Less significant byte of starting address of 
array 


More significant byte of starting address of 
array 


Exit Conditions 


Array sorted into ascending order, con- 
sidered the elements as unsigned bytes. 
Thus, the smallest unsigned byte is now in 
the starting address. 
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Example 
Data: Length (size) of array = 06 After the second iteration, we have 
Elements = 35,6. бА |, 2В |6, ЗЕ 6 045, 4F с 2В |6, 3516. ЗЕ 6 4Е 6 бА 5, D4,,. 
Result: After the first iteration, we have The next to largest element is now in the correct 
3516, 2816, ЗЕ, 6A, в, ФЕ, D446. position and need not be considered further. 
The largest element is now at the end of The third iteration leaves the array unchanged, 
the array and need not be considered since the elements are already in ascending order. 
further. 
: Title Bubble sort ; 
; Name: | ВОВ5КТ ; 
; ; 
; ; 
Purpose: Arrange an array of unsigned bytes into 
ascending order using a bubble sort, with a 
maximum size of 255 bytes. 
Entry: TOP OF STACK 
Low byte of return address, 
High byte of return address, 
Length (size) of array, 
Low byte of starting array address, 
High byte of starting array address 
Exit: The array is sorted into ascending order. 


Registers used: All 


Time: Approximately (34 * N * N) * (25 * N) cycles 
plus 70 cycles overhead, where N is the size of 
the array. { 


Size: Program 79 bytes 
Data 2 bytes plus 


4 bytes in page zero 


me ча че че че че че чо чо ча че че че че че че че че че че че че чо че чо 
че че че чо че TO ча че че WH WH чо че че че че че че WH че VE че чо чо че 


;EQUATES SECTION 


AlADR: .EQU ODOH ¿ADDRESS OF FIRST ELEMENT 
A2ADR: .EQU 002Н sADDRESS OF SECOND ELEMENT 
H 

BUBSRT: 


СЕТ THE PARAMETERS FROM THE STACK 


PLA 
TAY :SAVE LOW BYTE OF RETURN ADDRESS 


SRTLP: 


INLOOP: 


AFTSWP: 


LEN 
AlADR 


#1 
A2ADR 


AlADR+1 
#0 
A2ADR+1 
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¿SAVE HIGH BYTE OF RETURN ADDRESS 


¿SAVE THE LENGTH (SIZE) 
¿SAVE THE LOW BYTE OF THE ARRAY ADDRESS 


;SET LOW BYTE OF A2ADR TO AlADR + l 
;SAVE THE HIGH BYTE OF THE ARRAY ADDRESS 
;SET HIGH BYTE OF A2ADR 

;RESTORE HIGH BYTE OF RETURN ADDRESS 


;RESTORE LOW BYTE OF RETURN ADDRESS 


;BE SURE THE LENGTH IS GREATER THAN 1 


LDA LEN 

CMP #2 

BCC DONE 

; REDUCE 

DEC LEN 
;BUBBLE SORT LOOP 
LDX LEN 

LDY #0 

STY XCHGFG 
LDA (A2ADR) ,Y 
CMP (AlADR),Y 
BCS AFTSWP 
PHA 

LDA (AlADR),Y 
STA (A2ADR) ,Y 
PLA 

STA (AlADR),Y 
LDA $1 

STA XCHGFG 
INY 

DEX 

BNE INLOOP 
;INNER LOOP IS COMPLETE 
LDA XCHGFG 
BEQ DONE 

DEC LEN 

BNE SRTLP 


;EXIT IF THE LENGTH OF THE ARRAY IS 
; LESS THAN 2 


LENGTH BY 1 SINCE THE LAST ELEMENT HAS NO SUCCESSOR 


;X BECOMES NUMBER OF TIMES THROUGH INNER LOOP 
;Y BECOMES BEGINNING INDEX 
;INITIALIZE EXCHANGE FLAG TO 0 


;COMPARE 2 ELEMENTS 

;BRANCH IF SECOND ELEMENT >= FIRST ELEMENT 
;SECOND ELEMENT LESS, SO EXHANGE ELEMENTS 
;GET SECOND ELEMENT 

;STORE IT INTO THE FIRST ELEMENT 

;STORE FIRST ELEMENT INTO SECOND 


;SET EXCHANGE FLAG SINCE AN EXCHANGE OCCURRED 


;1NCREMENT TO NEXT ELEMENT 

;BRANCH NOT DONE WITH INNER LOOP 

IF THERE WERE NO EXCHANGES THEN EXIT 
;GET EXCHANGE FLAG 

;EXIT IF NO EXCHANGE WAS PERFORMED 


;CONTINUE IF LENGTH IS NOT ZERO 
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DONE: 
RTS 


;DATA SECTION 
LEN: . BLOCK 
XCHGFG: .BLOCK 


;LENGTH OF THE ARRAY 
;EXCHANGE FLAG (1=EXCHANGE, 0-МО EXCHANGE) 


кн 


SAMPLE EXECUTION 


“с чо че че «e 
че че че че we 


; PROGRAM SECTION 


SC0906: 
¿SORT AN ARRAY 
LDA BFADR+1 
PHA :PUSH HIGH BYTE OF STARTING ADDRESS 
LDA BFADR 
PHA ;PUSH LOW BYTE OF STARTING ADDRESS 
LDA BFSZ 
PHA ‚РОЗН LENGTH (SIZE OF ARRAY) 
JSR BUBSRT ; SORT 
BRK ;THE RESULT FOR THE INITIAL TEST DATA IS 
23052-35 9.344519 
JMP SC0906 ¿LOOP FOR MORE TESTS 
7 
; DATA SECTION 
SIZE . EQU 010H *SIZE OF BUFFER 
BFADR: .WORD BF ;STARTING ADDRESS OF BUFFER 
BFSZ: . BYTE SIZE ¿SIZE OF BUFFER 
BF: ; BUFFER 
. BYTE 15 
. BYTE 14 
. BYTE 13 
. BYTE 12 
. BYTE 11 
. BYTE 10 
. BYTE 9 
. BYTE 8 
. BYTE 7 
. BYTE 6 
. BYTE 5 
. BYTE 4 
. BYTE 3 
. BYTE 2 
. BYTE l 
. BYTE 0 


. END ; PROGRAM 


RAM Test (RAMTST) 


Performs a test of an area of RAM 
memory specified by a starting address and a 
length in bytes. Writes the values 00, FF,,, 
АА, (10101010,), and 55, (01010101,) into 
each byte and checks to see if they can be 
read back correctly. Places a single 1 bit in 
each position of each byte and sees if that can 
be read back correctly. Clears the Carry flag if 
all tests can be performed; if it finds an error 
it immediately exits, setting the Carry flag 
and returning the address in which the error 
occurred and the value that was being used in 
the test. 

Procedure: The program performs the 
single value checks (with 00, ЕЕ „АА „ап 
55,,) by first filling the memory area and then 
comparing each byte with the specified value. 
Filling the entire area first should provide 
enough delay between writing and reading to 
detect a failure to retain data (perhaps caused 
by improperly designed refresh circuitry). 
The program then performs the walking bit 
test, starting with bit 7; here it writes the data 
into memory and immediately attempts to 
read it back for a comparison. In all the tests, 
the program handles complete pages first and 
then handles the remaining partial page; the 
program can thus use 8-bit counters rather 
than a 16-bit counter. This approach reduces 
execution time but increases memory usage 
as compared to handling the entire area with 
one loop. Note that the program exits 
immediately if it finds an error, setting the 
Carry flag to 1 and returning the location and 
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Registers Used: All 


Execution Time: Approximately 245 cycles per 
byte tested plus 650 cycles overhead. Thus, for 
example, to test an area of size 0400; = 102410 
would take 


245 * 1024 + 650 = 250,880 + 650 
— 251,530 cycles. 


Program Size: 229 bytes 


Data Memory Required: Six bytes anywhere in 
RAM plus two bytes on page 0. The six bytes any- 
where in RAM hold the address of the first ele- 
ment (two bytes starting at address ADDR), the 
length of the tested area (two bytes starting at 
address LEN), and the temporary length (two 
bytes starting at address TLEN). The two bytes 
on page 0 hold a pointer to the tested area (start- 
ing at address TADDR, 00D0,, in the listing). 


Special Cases: 


1. An area size of 0000,, causes an immediate 
exit with no memory tested. The Carry flag is 
cleared to indicate no errors. 


2. Since the routine changes all bytes in the 
tested area, using it to test an area that includes 
its own temporary storage will produce unpre- 
dictable results. 

. Note that Case | means you cannot ask this 
routine to test the entire memory, but such a 
request would be meaningless anyway since it 
would require the routine to test its own tempor- 
ary storage. 


3. Attempting to test a ROM area will cause a 
return with an error indication as soon as the pro- 
gram attempts to store a value in a ROM location 
that is not already there. 


the value being used in the test. If all the tests 
can be performed correctly, the program 
clears the Carry flag before exiting. 
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Entry Conditions 


Order in stack (starting from the top) 


Less significant byte of return address 
More significant byte of return address 


Less significant byte of size (length) of area 
in bytes 

More significant byte of size (length) of area 
in bytes 


Less significant byte of starting address of 
test area 

More significant byte of starting address of 
test area 


Example 


Data: Starting address = 0380), 
Length (size) of area = 0200 4 


Area tested is the 02005 bytes, starting at 
addresses 0380. That is, address 0380, 
through 057F;,,. The order of the tests is: 

1. Write and read 00 

2. Write and read ЕЕ 6 


Result: 


| Title RAM test 
2 Name: RAMTST 
Н 
; 
Purpose: 


l) Write 
2) Write 
3) Write 
4) Write 


w w BO чо че че чо WS че WO че чо чо 
= 


Perform a test of RAM memory 
all 00 hex 
all FF hex and 
all AA hex and 
all 55 hex 
Shift a single 1 


If the program finds an error, 
immediately with the CARRY flag set and 
indicates where the error occurred and 
what value it used in the test. 


Exit Conditions 


1. If an error is found, 
Carry = 1 
(A) = More significant byte of address 
containing error 
(Y) = Less significant byte of address 
containing error 
(X) = Expected value (value being used 
in test) 
2. If no error is found, 
Carry = 0 
All bytes in test area contain 00. 


3. Write and read АА |, (10101010.) 

4. Write and read 55,, (01010101,) 

5. Walking bit test, starting with bit 7 and moving 
right. That is, starting with 8016 (1000000,) and moving 


the 1 bit one position right in each subsequent test of a 
single byte. 


че e че чо 


test 
test 
test 
test 
thourgh all of memory 


and 


and 
bit 


it exits 


me Ге чо че ча TO че че че WO че че WS 
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Entry: TOP OF STACK 
Low byte of return address, 
High byte of return address, 
Low byte of length in bytes, 
High byte of length in bytes, 
Low byte of starting address of test area, 
High byte of starting address of test area 


Exit: If there are no errors then 
CARRY flag equals 0 
test area contains 00 in all bytes 
else 

CARRY flag equals 1 

Register A - High byte of the address 
containing the error 

Register Y - Low byte of the address 
containing the error 

Register X = Expected value 


Registers used: All 


Time: Approximately 245 cycles per byte plus 
650 cycles overhead. 

Size: Program 228 bytes 
Data 6 bytes plus 


2 bytes in page zero 


me чо чо чо чо че че чо чо чо че Te че чо че чо че чо че чо чо TO че WS чо че че че чо 
че чо чо чо чо чо "9 NO чо чо чо NO чо че чо Te чо че че че чо че WH чо чо чо че че чо 


че чо 


EQUATES SECTION 


TADDR: .EQU орон ; PAGE ZERO POINTER TO TEST AREA 
RAMTST: 

;GET THE RETURN ADDRESS 

PLA 

TAY 

PLA 

TAX 

;GET THE LENGTH OF THE TEST AREA 

PLA 

STA LEN 

PLA 

STA LEN+1 

;GET THE STARTING ADDRESS OF THE TEST AREA 

PLA 

STA ADDR 

PLA 


STA ADDR+1 
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WLKLP: 


WLKLP1: 


;RESTORE THE RETURN ADDRESS 
TXA 
PHA 
TYA 
PHA 


;BE SURE THE LENGTH IS NOT ZERO 


LDA LEN 

ORA LEN+1 

BEQ EXITOK ;EXIT WITH NO ERRORS IF LENGTH IS ZERO 
;FILL MEMORY WITH FF HEX (ALL 1'S) AND COMPARE 

LDA #ОЕЕН 

JSR FILCMP 

BCS EXITER ;EXIT IF AN ERROR 


;FILL MEMORY WITH AA HEX (ALTERNATING 1'S AND 0'S) AND COMPARE 
LDA #ОААН 

JSR FILCMP 

BCS EXITER ;EXIT IF AN ERROR 


;FILL MEMORY WITH 55 HEX (ALTERNATING O'S AND 1'S) AND COMPARE 
LDA #55H 


JSR FILCMP 

BCS EXITER ;EXIT IF AN ERROR 

;FILL MEMORY WITH 0 AND COMPARE 

LDA #0 

JSR FILCMP 

BCS EXITER 

; PERFORM WALKING BIT TEST 

JSR ITEMPS ? INITIALIZE TEMPORARIES 

;WALK THROUGH THE 256 BYTE PAGES 

LDX TLEN+1 ;CHECK IF ANY FULL PAGES TO DO 

BEQ WLKPRT ;BRANCH IF NONE 

LDY $0 ;REGISTER Y IS INDEX 

LDA $80H ;SET BIT 7 TO 1, ALL OTHER BITS TO ZERO 
STA (TADDR) ,Y ;STORE TEST PATTERN IN MEMORY 

CMP (TADDR) ,Y ;COMPARE VALUE WITH WHAT IS READ BACK 
BNE EXITER ;EXIT INDICATING ERROR IF NOT THE SAME 
LSR A ;SHIFT TEST PATTERN RIGHT ONE BIT 

BNE WLKLP1 ;BRANCH IF NOT DONE WITH BYTE 

STA (TADDR) ,Y ;STORE A ZERO BACK INTO THE LAST BYTE 
INY ; INCREMENT TO NEXT BYTE IN PAGE 

BNE WLKLP ;BRANCH IF NOT DONE WITH PAGE 

INC TADDR+1 INCREMENT TO NEXT PAGE 

DEX ;DECREMENT PAGE COUNTER 

BNE WLKLP ;BRANCH IF NOT DONE WITH ALL OF THE PAGES 


;WALK THROUGH LAST PARTIAL PAGE 


WLKPRT: 


WLKLP2: 


WLKLP3: 


EXITOK: 


EXITER: 


TLEN 
EXITOK 
#0 


#80H 


(TADDR) ,Y 
(TADDR) ,Y 
EXITER 

A 

WLKLP3 
(TADDR) ,Y 


WLKLP2 


ERROR 
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;GET NUMBER OF BYTES IN LAST PAGE 
;EXIT IF NONE 
;INITIALIZE INDEX TO ZERO 


;START WITH BIT 7 EQUAL TO 1 


;STORE TEST PATTERN IN MEMORY 

;COMPARE VALUE WITH WHAT IS READ BACK 

;EXIT INDICATING ERROR IF NOT THE SAME 
;SHIFT TEST PATTERN RIGHT 

;BRANCH IF NOT DONE 

;STORE A ZERO BACK INTO THE LAST BYTE 

:ІМСКЕМЕМТ TO NEXT BYTE 

;DECREMENT BYTE COUNTER 

;BRANCH IF NOT DONE 


¿RETURN WITH NO ERROR 


;RETURN WITH AN ERROR 


; k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k ЖК 


; ROUTINE: 
; PURPOSE: 


ENTRY: 


t 
>< 
H 
У 


че чо Г че че чо че че чо чо me 


FILCMP 
FILL MEMORY WITH A VALUE AND TEST 


THAT MEMORY CONTAINS THAT VALUE 


REGISTER A = VALUE 
= STARTING ADDRESS 
= LENGTH 


ADDR 


LEN 


IF NO ERRORS THEN 


CARRY FLAG 


ELSE 


CARRY FLAG 
REGISTER A 
REGISTER Y 
REGISTER X 
;REGISTERS USED: 


ALL 


EQUALS 0 


EQUALS 1 

HIGH BYTE OF ERROR LOCATION 
LOW BYTE OF ERROR LOCATION 
EXPECTED VALUE 


z k k k k k k k k k e k k e k k k k k k k k k k k k k k k k k k k k k k kx 


FILCMP: 


FILLP: 


JSR 


ITEMPS 


;INITIALIZE TEMPORARIES 


;FILL MEMORY WITH THE VALUE IN REGISTER A 
;FILL FULL PAGES 


LDX 
BEQ 
LDY 


STA 
INY 
BNE 


TLEN+1 
FILPRT 

#0 
(TADDR) ,Y 


FILLP 


;START AT INDEX 0 


;STORE THE VALUE 
; INCREMENT TO NEXT LOCATION 
;BRANCH IF NOT DONE WITH THIS PAGE 
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; INCREMENT HIGH BYTE OF TEMPORARY ADDRESS 
;DECREMENT PAGE COUNT 
;BRANCH IF NOT DONE WITH FILL 


;REGISTER Y IS SET TO SIZE OF LAST PAGE 


; CONTINUE 


THE VALUE IN REGISTER A 


;INITIALIZE TEMPORARIES 


;COMPARE MEMORY WITH THE VALUE IN REGISTER A 


;START AT INDEX 0 


;CAN THE STORED VALUE BE READ BACK ? 

;NO, EXIT INDICATING ERROR 

;INCREMENT TO NEXT LOCATION 

;BRANCH IF NOT DONE WITH THIS PAGE 

; INCREMENT HIGH BYTE OF TEMPORARY ADDRESS 
;DECREMENT PAGE COUNT 

;BRANCH IF NOT DONE WITH FILL 


;REGISTER Y = SIZE OF PARTIAL PAGE 


;CAN THE STORED VALUE BE READ BACK ? 
;NO, EXIT INDICATING ERROR 


; CONTINUE 


;INDICATE NO ERROR 


INC TADDR*1 
DEX 
BNE FILLP 
FILPRT: 
. ;FILL PARTIAL PAGE 
LDX TLEN 
LDY #0 
FILLP1: 
STA (TADDR) ,Y 
INY 
DEX 
BNE FILLP1 
? СОМРАКЕ MEMORY AGAINST 
CMPARE: 
JSR ITEMPS 
; COMPARE FULL PAGES FIRST 
LDX TLEN+1 
BEQ CMPPRT 
LDY #0 
CMPLP: 
CMP (TADDR) , Y 
BNE CMPER 
INY 
BNE CMPLP 
INC TADDR+1 
DEX 
BNE CMPLP 
СМРРКТ: . 
? СОМРАКЕ THE LAST PARTIAL PAGE 
LDX TLEN 
LDY #0 
CMPLP 1: 
CMP (TADDR) ,Y 
BNE CMPER 
INY 
DEX 
BNE CMPLP1 
CMPOK: 
CLC 
RTS 
CMPER: 
JSR ERROR 
RTS 


; k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k КК 


;ROUTINE: ITEMPS 


;PURPOSE: INITIALIZE TEMPORARIES 
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;ENTRY: ADDR IS BEGINNING ADDRESS 
; LEN IS NUMBER OF BYTES 
;EXIT:  TADDR IS SET TO ADDR 

; | TLEN IS SET TO LEN 


a 
¿REGISTERS USED: Y,P 
; Cede k k k k k k k k k k k k k k k k k k k k k k k k k kk 


ITEMPS: 
LDY ADDR 
STY TADDR 
LDY ADDR+1 
STY TADDR+1 
LDY LEN 
STY TLEN 
LDY LEN+1 
STY TLEN+1 
RTS 


; k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k K Ж 


;ROUTINE: ERROR 

;PURPOSE: SET UP THE REGISTERS FOR AN ERROR EXIT 

;ENTRY: REGISTER A IS EXPECTED BYTE 

TADDR IS BASE ADDRESS 

REGISTER Y IS INDEX 

REGISTER X IS SET TO EXPECTED BYTE 

REGISTER A IS SET TO HIGH BYTE OF THE ADDRESS CONTAINING THE ERROR 
REGISTER Y IS SET TO LOW BYTE OF THE ADDRESS CONTAINING THE ERROR 
CARRY FLAG IS SET TO 1 


REGISTERS USED: ALL 
k % k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k K 


tj 
>< 
H 
Fi 


че че чо чо че че че чо 


ERROR: 
TAX ;REGISTER X = EXPECTED BYTE 
TYA ;GET INDEX 
CLC ;ADDRESS OF ERROR = BASE + INDEX 
ADC TADDR 
TAY ¿REGISTER У = LOW BYTE OF ERROR LOCATION 
LDA TADDR+1 
ADC #0 ;REGISTER A = HIGH BYTE OF ERROR LOCATION 
SEC ? INDICATE AN ERROR BY SETTING CARRY TO 1 
RTS 


;DATA SECTION 

ADDR: . BLOCK 
LEN: . BLOCK 
TLEN: . BLOCK 


;ADDRESS OF FIRST ELEMENT 
; LENGTH 
;TEMPORARY LENGTH 


ho N) N) 


SAMPLE EXECUTION 


чө че wo че чо 
ор зо че чо че 
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SC0907: 
;TEST MEMORY 
LDA ADR+1 
PHA ;PUSH HIGH BYTE OF STARTING ADDRESS 
LDA ADR 
PHA ;PUSH LOW BYTE OF STARTING ADDRESS 
LDA SZ+1 | 
PHA ;PUSH HIGH BYTE OF LENGTH 
LDA 52 
РНА ;PUSH LOW BYTE OF LENGTH 
JSR RAMTST ;TEST 
BRK ;CARRY FLAG SHOULD BE O0 
JMP SC0907 ;LOOP FOR MORE TESTING 
ADR . WORD 2000H 
SZ . WORD 1010H 


. END ; PROGRAM 


Jump Table (JTAB) 


Transfers control to an address selected 
from a table according to an index. The 
addresses are stored in the usual 6502 style 
(less significant byte first), starting at address 
TABLE. The size of the table (number of 
addresses) is a constant LENSUB, which 
must be less than or equal to 128. If the index 
is greater than or equal to LENSUB, the pro- 
gram returns control immediately with the 
Carry flag set to 1. 

Procedure: The program first checks if the 
index is greater than or equal to the size of 
the table (LENSUB). If it is, the program 
returns control with the Carry flag set. If it is 
not, the program obtains the starting address 


Entry Conditions 


9H 


Registers Used: A, Р 


Execution Time: 31 cycles overhead, besides the 
time required to execute the subroutine. 


Program Size: 23 bytes plus 24LENSUB bytes for 
the table of starting addresses, where LENSUB is 
the number of subroutines. 


Data Memory Required: Two bytes anywhere in 
RAM (starting at address TMP) to hold the 
indirect address obtained from the table. 


Special Case: Entry with (A) greater than or 
equal to LENSUB causes an immediate exit with 
Carry flag set to 1. 


of the appropriate subroutine from the table, 
stores it in memory, and jumps to it 
indirectly. 


Exit Conditions 


If (A) is greater than LENSUB, an immedi- 
ate return with Carry = 1. Otherwise, control 
transferred to appropriate subroutine as if an 
indexed call had been performed. The return 
address remains at the top of the stack. 


(A) = index 

Example 

Data: LENSUB (size of subroutine table) — 03. 
Table consists of addresses SUBO, SUBI, 
and SUB2. 
Index = (A) = 02 

Result: Control transferred to address SUB2 
(PC = SUB2). 
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| Title Jump table ; 
P Name: JTAB ; 
Н Н 
; ; 
Purpose: Given an index, jump to the subroutine with 


that index in a table 


Entry: Register A is the subroutine number 0 to 
LENSUB-1, the number of subroutines, 
oe must be less than or equal to 


Exit: If the routine number is valid then 
execute the routine 
else 
CARRY flag equals 1 


Registers used: A,P 


Э. че че че зо “30 че чо чо зо че зе WS че BVO чо че WO WO че чо чо 
чө че че TO "9 99 ve Be чо че чо ча чо чо чо чо че WE че WO че че 


Time: Jl cycles plus execution time of subroutine 
Size: Program 23 bytes plus size of table (2*LENSUB) 
Data 2 bytes 
; 
JTAB: 
CMP #LENSUB 
BCS JTABER :BRANCH IF REGISTER A IS TOO LARGE 
ASL A sMULTIPLY VALUE BY 2 FOR WORD-LENGTH INDEX 
TAY 
LDA TABLE, Y ¿MOVE STARTING ADDRESS TO TEMPORARY STORAGE 
STA TMP 
LDA TABLE+1,Y 
STA ТМР+1 
JMP (TMP) JUMP INDIRECTLY TO SUBROUTINE 
JTABER: 
SEC ‚ТМОТСАТЕ А BAD ROUTINE NUMBER 
RTS 
LENSUB .Е00 3 
TABLE: 
. WORD 5081 ; ROUTINE 0 
.WORD SUB2 ;ROUTINE 1 
. WORD SUB3 ; ROUTINE 2 


TMP: .BLOCK 2 ¿TEMPORARY ADDRESS TO JUMP INDIRECT THROUGH 
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;THREE SUBROUTINES WHICH ARE IN THE JUMP TABLE 


SUB1: 
LDA $1 
RTS 

SUB2: 
LDA $2 
RTS 

SUB3: 
LDA $3 
RTS 


SAMPLE EXECUTION 


че че чо че чо 
me че чо че чо 


, 


; PROGRAM SECTION 


SC0908: 
LDA #0 
JSR JTAB 
BRK EXECUTE ROUTINE 0, REGISTER A EQUALS 1 
LDA #1 
JSR JTAB 
BRK ;EXECUTE ROUTINE 1, REGISTER A EQUALS 2 
LDA #2 | 
JSR JTAB 
BRK ;EXECUTE ROUTINE 2, REGISTER A EQUALS 3 
LDA #3 
JSR JTAB 
BRK ;ERROR CARRY FLAG EQUALS 1 
JMP SC0908 ;LOOP FOR MORE TESTS 


. END ; PROGRAM 


Read a Line of Characters from a Terminal 


(RDLINE) 


10A 


Reads ASCII characters from a terminal 
and saves them in a buffer until it encounters 
a carriage return character. Defines the con- 
trol characters Control H (08 hex), which 
deletes the character most recently entered 
into the buffer, and Control X (18 hex), 
which deletes all characters in the buffer. 
Sends a bell character (07 hex) to the ter- 
minal if the buffer becomes full. Echoes to 
the terminal each character placed in the 
buffer. Sends a new line sequence (typically 
carriage return, line feed) to the terminal 
before exiting. 

RDLINE assumes the existence of the 
following system-dependent subroutines: 


1. RDCHAR reads а single character from 
the terminal and places it in the accumulator. 


2. WRCHAR sends the character in the 
accumulator to the terminal. 


3. WRNEWL sends a new line sequence 
(typically consisting of carriage return and 
line feed characters) to the terminal. 


These subroutines are assumed to change 
the contents of all the user registers. 

RDLINE is intended as an example of a 
typical terminal input handler. The specific 
control characters and I/O subroutines in a 
real system will, of course, be computer- 
dependent. A specific example in the listing 
describes an Apple II computer with the 
following features: 


1. The entry point for the routine that 
reads a character from the keyboard is 
FDOC,,. This routine returns with bit 7 set, 
so that bit must be cleared for normal ASCII 
operations. 
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Registers Used: All 


Execution Time: Approximately 67 cycles to 
place an ordinary character in the buffer, not con- 
sidering the execution time of either RDCHAR 
or WRCHAR. 


Program Size: 138 bytes 


Data Memory Required: Four bytes anywhere in 
RAM plus two bytes on page 0. The four bytes 
anywhere in RAM hold the buffer index (one 
byte at address BUFIDX), the buffer length (one 
byte at address BUFLEN), the count for the 
backspace routine (one byte at address COUNT), 
and the index for the backspace routine (one byte 


at address INDEX). The two bytes on page 0 hold 
a pointer to the input buffer (starting at address 
BUFADR, 00D0,, in the listing). 


Special Cases: 


1. Typing Control H (delete one character) or 
Control X (delete the entire line) when there is 
nothing in the buffer has no effect on the buffer 
and does not cause anything to be sent to the ter- 
minal. 


2. If the program receives an ordinary 
character when the buffer is full, it sends a Bell 
character to the terminal (ringing the bell), dis- 
cards the received character, and continues its 
normal operations. 


2. The entry point for the routine that 
sends a character to the monitor is FDED,,,. 
This routine requires bit 7 of the character 
(in the accumulator) to be set. 


3. The entry point for the routine that 
issues the appropriate new line character (a 
carriage return) is FD8E,,. 


4. An 08,, character moves the cursor left 
one position. 


A standard reference describing the Apple II 
computer is L. Poole et al., Apple II User's 
Guide, Berkeley: Osborne/McGraw-Hill, 
1981. 


Procedure: The program first reads a 
character using the RDCHAR routine and 
exits if the character is a carriage return. If 
the character is not a carriage return, the pro- 
gram checks for the special characters Con- 
trol H and Control X. In response to Control 
H, the program decrements the buffer index 
and sends a backspace string (consisting of 
cursor left, space, cursor left) to the terminal 
if there is anything in the buffer. In response 
to Control X, the program repeats the 


Entry Conditions 


(A) — More significant byte of starting 
address of buffer 

(Y) = Less significant byte of starting 
address of buffer 

(X) = Length (size) of the buffer in bytes. 
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response to Control H until it empties the 
buffer. If the character is not special, the pro- 
gram checks to see if the buffer is full. If the 
buffer is full, the program sends a bell 
character to the terminal and continues. If 
the buffer is not full, the program stores the 
character in the buffer, echoes it to the ter- 
minal, and adds one to the buffer index. 
Before exiting, the program sends a new line 
sequence to the terminal using the 
WRNEWL routine. 


Exit Conditions 


(X) = Number of characters in the buffer. 


Examples 


1. Data: 
Result: 


Line (from keyboard is ‘ENTERcr’ 


Buffer index = 5 (length of line) 
Buffer contains ‘ENTER’ 


‘ENTER’ echoed to terminal, followed by 
the new line sequence (typically either car- 
riage return, line feed or just carriage 
return) 

Note that the 'cr' (carriage return) 
character does not appear in the buffer. 


Line (from keyboard) is ‘DMcontrolHN 
controlXENTETcontrolHRcr’. 


Buffer index = 5 (length of actual line) 


2. Data: 


The sequence of operations is as follows: 


Result: 


Buffer contains ‘ENTER’ 

‘ENTER’ echoed to terminal, followed by 
the new line sequence (typically either car- 
riage return, line feed or just carriage 
return) 


Character Initial Final 
Typed Buffer Buffer 

D empty ‘D’ 

M ‘D’ ‘DM’ 

control H ‘DM’ ‘D’ 

N ‘D’ ‘DN’ 

control X ‘DN’ empty 

E empty Е 

N ғ ‘EN’ 

T ‘EN’ ‘ENT’ 

E ‘ENT’ ‘ENTE’ 

T ‘ENTE’ “ЕМТЕТ” 

сопіго! Н “ЕМТЕТ” “ЕМТЕ” 

R ‘ENTE’ ‘ENTER’ 

cr ‘ENTER’ ‘ENTER’ 
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What has happened is the following: deleted is not the latest one, the operator types control 

X to delete the entire line, and then types ‘ENTET’. 
d. The operator recognizes that the second “Т” is 

incorrect (should be ‘R’), types control H to delete it, 


a. The operator types ‘D’, “М? 


b. The operator recognizes that ‘М?’ is incorrect 
(should be *N?), types control H to delete it, and types 


N’ and types ‘R’. 
: : р e. The operator types a carriage return to conclude 
с. The operator then recognizes that the initial ‘D’ is the line. i үр 

incorrect also (should be ʻE’). Since the character to be 

; Title Read line ; 

Ч Name: RDLINE ; 

; ; 

; ; 

Purpose: Read characters from the input device until 


a carriage return is found. RDLINE defines the 
following control characters: 


Control H -- Delete the previous character. 
Control X -- Delete all characters. 
Entry: Register A = High byte of buffer address 
Register Y = Low byte of buffer address 
Register X = Length of the buffer 
Exit: Register X = Number of characters in the buffer 


Registers used: All 


Time: Not applicable. 
Size: Program 138 bytes 
Data 4 bytes plus 


2 bytes in page zero 


чо we че че “е TO чо чо TO че че чо WH че WH че WH WOH че че WE чо 
че че че чо че чо чо че че чо чо чо WH чо WH че че чо чо ча че чо 


; PAGE ZERO POINTER 


BÜFADR .Е00 ODOH ;INPUT BUFFER ADDRESS 
; EQUATES 
DELKEY . EQU 018H ;DELETE LINE KEYBOARD CHARACTER 


BSKEY . EQU 08H ;BACKSPACE KEYBOARD CHARACTER 
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CRKEY . EQU ODH ¿CARRIAGE RETURN KEYBOARD CHARACTER 
SPACE . EQU 020H ; SPACE CHARACTER 
BELL . EQU 07H ¿BELL CHARACTER TO RING THE BELL ON THE TERMINAL 
RDLINE: 
;SAVE PARAMETERS 
STA BUFADR+1 :SAVE HIGH BYTE OF INPUT BUFFER ADDRESS 
STY BUFADR ? ЗАУЕ LOW BYTE OF INPUT BUFFER ADDRESS 
STX BUF LEN ¿SAVE MAXIMUM LENGTH 
;INITIALIZE BUFFER INDEX TO ZERO 
INIT: i 
LDA #0 
STA BUFIDX 
¿READ LOOP 
¿READ CHARACTERS UNTIL A CARRIAGE RETURN OCCURS 
RDLOOP: 
JSR RDCHAR ¿READ A CHARACTER FROM THE KEYBOARD 
:DOES NOT ECHO 
;CHECK FOR CARRIAGE RETURN AND EXIT IF FOUND 
CMP #CRKEY 
BEQ EXITRD 
;CHECK FOR BACKSPACE AND BACK UP IF FOUND 
CMP #BS KEY 
BNE RDLP1 ;BRANCH IF NOT BACKSPACE CHARACTER 
JSR BACKSP ;IF BACKSPACE, BACK UP ONE CHARACTER 
JMP RDLOOP ; THEN START READ LOOP AGAIN 
;CHECK FOR DELETE LINE CHARACTER AND DELETE LINE IF FOUND 
RDLPl: 
CMP #DELKEY 
i BNE RDLP2 ;BRANCH IF NOT DELETE LINE CHARACTER 
DELI: 
JSR BACKSP ;DELETE A CHARACTER 
LDA BUFIDX ;CONTINUE DELETING UNTIL BUFFER IS EMPTY 
BNE DELI 
BEQ RDLOOP ;THEN GO READ THE NEXT CHARACTER 
;NOT A SPECIAL CHARACTER 
; CHECK IF BUFFER IS FULL 
; IF NOT FULL STORE CHARACTER AND ECHO 
RDLP2: 
LDY BUFIDX ;1S BUFFER FULL? 
CPY BUFLEN 
BCC STRCH ;BRANCH IF NOT 
LDA #BELL ? ХЕ5 IT IS FULL, RING THE TERMINAL'S BELL 
JSR WRCHAR : 
JMP RDLOOP ;THEN CONTINUE THE READ LOOP 
STRCH: 
STA (BUFADR),Y ¿STORE THE CHARACTER 


JSR WRCHAR ; ECHO CHARACTER TO TERMINAL 
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INC BUFIDX ;INCREMENT BUFFER INDEX 
JMP RDLOOP ;THEN CONTINUE THE READ LOOP 


;EXIT SEQUENCE 
;ECHO NEW LINE SEQUENCE (USUALLY CR,LF) 
;GET LENGTH OF BUFFER 


EXITRD: | 
JSR WRNEWL ;ECHO THE NEW LINE SEQUENCE 
LDX BUFIDX ¿RETURN THE LENGTH IN X 
RTS ; RETURN 


* k k k k k k k k k k k k k k k k k k k k k k k Ñ k k k k k k k k k k k k k k k k k k k КК 


THE FOLLOWING SUBROUTINES ARE SYSTEM SPECIFIC, 
THE APPLE II WAS USED IN THESE EXAMPLES. 


чо че че чо =e чо 


* k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k 


; k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k KK KK k ХЕ 

;ROUTINE: RDCHAR 

; PURPOSE: READ A CHARACTER BUT DO NOT ECHO TO OUTPUT DEVICE 
;ENTRY: NONE 

;EXIT: REGISTER A = CHARACTER 


;REGISTERS USED: ALL 
; k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k K K K K 


RDCHAR: 
JSR OFDOCH ;APPLE MONITOR READ KEYBOARD 
AND $01111111B :ZERO ВІТ 7 
RTS 


$ k k k k k k k k k k k k k Kk k k k k k k k k k k k k k k k k k k k k k k k k k k k 


;ROUTINE: WRCHAR 

; PURPOSE: WRITE A CHARACTER TO THE OUTPUT DEVICE 
;ENTRY: REGISTER A = CHARACTER 

;EXIT: NONE 


;REGISTERS USED: ALL 
; k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k E 


WRCHAR: 
ORA #10000000B ;SET BIT 7 
JSR OFDEDH ;APPLE MONITOR CHARACTER OUTPUT ROUTINE 
RTS 


; k k k k k k k dee k k k k k k k k k k k k k k k k k k k k k k k k k k e d k k k K 


;ROUTINE: WRNEWL 

;PURPOSE: ISSUE THE APPROPRIATE NEW LINE CHARACTER OR 
CHARACTERS. NORMALLY, THIS IS A CARRIAGE RETURN 

AND LINE FEED, BUT SOME COMPUTERS (SUCH AS APPLE II) 
REQUIRE ONLY A CARRIAGE RETURN. 

ENTRY: NONE 

:ЕХІТ: NONE 


;REGISTERS USED: ALL 
; Kk RIKER k k k k k k k k k k k k k k k k k k k k k k k k k k k ek k k k k 


че чо чо 
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WRNEWL: 
JSR OF D8EH ;ECHO CARRIAGE RETURN AND LINE FEED 


RTS 


; k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k ЖК 


;ROUTINE: BACKSP 

; PURPOSE: PERFORM A DESTRUCTIVE BACKSPACE 

;ENTRY: BUFIDX = INDEX TO NEXT AVAILABLE LOCATION IN BUFFER 
;EXIT: CHARACTER REMOVED FROM BUFFER 


;REGISTERS USED: ALL 
; k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k 


BACKSP: 
;CHECK FOR EMPTY BUFFER 
LDA BUF IDX 
BEQ .. EXITBS ;EXIT IF NO CHARACTERS IN BUFFER 
;BUFFER IS NOT EMPTY SO DECREMENT BUFFER INDEX 
DEC BUFIDX ? DECREMENT BUFFER INDEX 
;OUTPUT BACKSPACE STRING 
LDA #LENBSS 
STA COUNT ;COUNT = LENGTH OF BACKSPACE STRING 
LDA #0 
STA INDEX ; INDEX = INDEX TO FIRST CHARACTER 
BSLOOP: 
LDA COUNT 
BEQ EXITBS ;EXIT IF ALL CHARACTERS HAVE BEEN SENT 
LDY INDEX 
LDA BSSTRG, Y ;GET NEXT CHARACTER 
JSR WRCHAR ;OUTPUT CHARACTER 
INC INDEX 
DEC COUNT 
JMP BSLOOP 
EXITBS: 
RTS 
CSRLFT . EQU 08H ;CHARACTER WHICH MOVES CURSOR LEFT ONE LOCATION 
LENBSS: .EQU 3 ;LENGTH OF BACKSPACE STRING 


BSSTRG: .BYTE CSRLFT,SPACE,CSRLFT 


;DATA 

BUFIDX: .BLOCK 
BUFLEN: .BLOCK 
COUNT: .BLOCK 
INDEX:  .BLOCK 


;INDEX TO NEXT AVAILABLE CHARACTER IN BUFFER 
;BUFFER LENGTH 

;COUNT FOR BACKSPACE AND RETYPE 

; INDEX FOR BACKSPACE AND RETYPE 


HP be ы 


SAMPLE EXECUTION: 


=e че че че чо 
че we чо чо чо 
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SC1001: 


TLOOP: 


TLOOP1: 


;DATA SECTION 


IDX: 
CNT: 


ADRBUF : 


LINBUF: 


INBUFF: 


;READ LINE 


LDA $ " ? п 

JSR WRCHAR 
LDA ADRBUF +1 
LDY ADRBUF 
LDX #LINBUF 
JSR RDLINE 

; ECHO LINE 

STX CNT 

LDA #0 

STA IDX 

LDA CNT 

BNE ТІООР1 
JSR WRNEWL 
JMP SCl001 
LDY IDX 

LDA ІМВОҒЕ,Ү 
JSR WRCHAR 
INC IDX 

DEC CNT 

JMP TLOOP 
.BLOCK 1 

.BLOCK 1 

. WORD INBUFF 

. EQU 10H 
.BLOCK LINBUF 

. END ; PROGRAM 


;OUTPUT PROMPT (QUESTION MARK) 
;GET THE BUFFER ADDRESS 


;GET THE BUFFER LENGTH 
;READ A LINE 


;STORE NUMBER OF CHARACTERS IN THE BUFFER 


;BRANCH IF THERE ARE MORE CHARACTERS TO SEND 
;IF NOT ISSUE NEW LINE (CR,LF) 
;AND START OVER 


;GET THE NEXT CHARACTER 
;OUTPUT IT 


;DECREMENT LOOP COUNTER 


; INDEX 

; COUNTER 

;ADDRESS OF INPUT BUFFER 
;LENGTH OF INPUT BUFFER 
¿DEFINE THE INPUT BUFFER 


Write a Line of Characters to an Output Device 


(WRLINE) 


Writes characters to an output device 
using the computer-dependent subroutine 
WRCHAR, which writes the character in the 
accumulator on the output device. Continues 
until it empties a buffer with given length and 
starting address. This subroutine is intended 
as an example of a typical output driver. The 
specific I/O subroutines will, of course, be 
computer-dependent. The specific example 
described is the Apple II computer with the 
following features: 


1. The entry point for the routine that 
sends a character to the monitor is FDED,,. 


2. The character to be written must be 
placed in the accumulator with bit 7 set to 1. 


Procedure: The program exits immediately 
if the buffer length is zero. Otherwise, the 
program sends characters to the output 


Entry Conditions 


(A) — More significant byte of starting 
address of buffer 


(Y) — Less significant byte of starting 
address of buffer 


(X) — Length (size) of the buffer in bytes. 


Example 


Data: Buffer length = 5 


Buffer contains ‘ENTER’ 
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Registers Used: All 


Execution Time: 24 cycles overhead plus 25 
cycles per byte (besides the execution time of 
subroutine WRCHAR). 


Program Size: 37 bytes 


Data Memory Required: Two bytes anywhere in 
RAM plus two bytes on page 0. The two bytes 


anywhere in RAM hold the buffer index (one 
byte at address BUFIDX) and the buffer length 
(one byte at address BUFLEN). The two bytes on 
page 0 hold a pointer to the output buffer (start- 
ing at address BUFADR, 00D0,, in the listing). 


Special Case: 


A buffer length of zero causes an immediate 
exit with no characters sent to the output device. 


device one at a time until the buffer is 
emptied. The program saves all its temporary 
data in memory rather than in registers to 
avoid dependence on the WRCHAR routine. 


Exit Conditions 


None 


Result: ‘ENTER’ sent to the output device. 
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Title 
Name: 


чө чо чо TO 


Purpose: 


Entry: 


Exit: 


Time: 


Size: 


чо чо че че че чо чо чо WE WE WH че Го че че WE че че чо 


Write line 


WRLINE 


Write characters to the output device 


Register A 


High byte of buffer address 


Register Y = Low byte of buffer address 


Register X 


None 


Registers used: All 


Length of the buffer in bytes 


24 cycles overhead plus 
(25 + execution time of WRCHAR) cycles per byte 


Program 37 bytes 


Data 


; PAGE ZERO POINTER 


2 bytes plus 
2 bytes in page Zero 


;OUTPUT BUFFER ADDRESS 


;SAVE HIGH BYTE OF OUTPUT BUFFER ADDRESS 
;SAVE LOW BYTE OF OUTPUT BUFFER ADDRESS 
;SAVE LENGTH 

;EXIT IF LENGTH = 0 


;GET NEXT CHARACTER 
;OUTPUT CHARACTER 
;INCREMENT BUFFER INDEX 
;DECREMENT BUFFER LENGTH 
;BRANCH IF NOT DONE 


BUFADR . EQU ODOH 
WRLINE: 

; SAVE PARAMETERS 

STA BUFADR+1 

STY BUFADR 

STX BUF LEN 

BEQ EXIT 

¿INITIALIZE BUFFER INDEX TO ZERO 

LDA #0 

STA BUF IDX 
WRLOOP: 

LDY BUF IDX 

LDA (BUFADR) ,Y 

JSR WRCHAR 

INC BUF IDX 

DEC BUFLEN 

BNE WRLOOP 
EXIT: 

RTS 


me че e че че че 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


THE FOLLOWING SUBROUTINES ARE SYSTEM SPECIFIC, 
THE APPLE II WAS USED IN THIS EXAMPLE. 


* k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k КК ЖК КК КК КК 


- чө че чо 


me че “е чо чо че We че че чо че че чо че че че че че чо 
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z k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k kh k k k k k k ЖК 


;ROUTINE: WRCHAR 

;PURPOSE: WRITE A CHARACTER TO THE OUTPUT DEVICE 
;ENTRY: REGISTER A = CHARACTER 

EXIT: МОМЕ 


;REGISTERS USED: ALL 
; K k k k k k k k k k k k k k k k k k k k k k k k k k k k k k e k k k k k k КККК 


WRCHAR: 
ORA #10000000B ¿SET ВІТ 7 
JSR OFDEDH :APPLE MONITOR CHARACTER OUTPUT ROUTINE 
RTS 


s k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k 


; DATA SECTION 
BUFIDX: .BLOCK 1 ;INDEX TO NEXT AVAILABLE CHARACTER IN BUFFER 


BUFLEN: .BLOCK 1 ;BUFFER LENGTH 


SAMPLE EXECUTION: 


=e чо че че чо 
че че че че Че 


SC1002: 
;READ LINE USING THE APPLE MONITOR GETLN ROUTINE AT OFD6AH 
; 33H = ADDRESS CONTAINING APPLE PROMPT CHARACTER 
; 200H = BUFFER ADDRESS 


LDA $"?" OR 80H ;USE ? FOR PROMPT WITH BIT 7 SET 
STA 033H ;SET UP APPLE PROMPT CHARACTER 
JSR OFD6AH ; CALL APPLE MONITOR GETLN ROUTINE 
STX LENGTH ;RETURN LENGTH IN REGISTER X 


;WRITE THE LINE 


LDA #02H 7A = HIGH BYTE OF BUFFER ADDRESS 

LDY #0 ;Y = LOW BYTE OF BUFFER ADDRESS 

LDX LENGTH ;X = LENGTH OF BUFFER 

JSR WRLINE ;OUTPUT THE BUFFER 

JSR OF D8EH ;OUTPUT CARRIAGE RETURN VIA APPLE MONITOR 
JMP SC1002 ; CONTINUE 


;DATA SECTION 
LENGTH: .BLOCK 1 


. END ; PROGRAM 


Generate Even Parity (GEPRTY) 
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Generates even parity for a seven-bit 
character and places it in bit 7. Even parity for 
a seven-bit character is a bit that makes the 
total number of 1 bits in the byte even. 

Procedure: The program generates even 
parity by counting the number of 1 bits in the 
seven least significant bits of the accumula- 
tor. The counting is accomplished by shifting 
the data left logically and incrementing the 
count by one if the bit shifted into the Carry 
is 1. The least significant bit of the count is an 
even parity bit; the program concludes by 


Entry Conditions 


Data in the accumulator (bit 7 is not used). 


Examples 


1. Data: (А) = 42, = 01000010, (ASCII В) 


(A) = 42,4 = 01000010, (ASCII B with bit 
7 cleared) 


Even parity ts 0, since 01000010, has an 
even number (2) of | bits. 


Result: 


; Title 

: Name: GEPRTY 

H 

; 

; 

; Purpose: 

; character. 
; 

; Entry: 
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Generate even parity 


Generate even parity in bit 7 for a 7-bit 


Register A = Character 


Registers Used: A, F 


Execution Time: 114 cycles maximum. Depends 
on the number of 1 bits in the data and how 
rapidly the series of logical shifts makes the data 
zero. The program exits as soon as the remaining 


bits of data are all zeros, so the execution time is 
shorter if the less significant bits are all zeros. 


Program Size: 39 bytes 


Data Memory Required: One byte anywhere in 
RAM (at address VALUE) for the data. 


shifting that bit to the Carry and then to bit 7 
of the original data. 


Exit Conditions 


Data with even parity in bit 7 in the 
accumulator. 


2. Data: (A) = 43% = 01000011, (ASCII C) 


Result: (А) = СЗ = 11000011, (ASCII C with bit 


7 set) 


me че че чо 


че че чо чо ° 
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Exit: Register A - Character with even parity 


Registers used: A,F 


Time: 114 cycles maximum 
Size: Program 39 bytes 
Data l byte 


- me че we че TO чо TE че чо 
we «о чо чо че чо че чо че WO 


GEPRTY: 
;SAVE THE DATA 
STA VALUE 
; SAVE X AND Y REGISTERS 
PHA 
TXA 
PHA 
TYA 
;COUNT THE NUMBER OF 1 BITS IN BITS 0 THROUGH 6 OF THE DATA 
LDY $0 ;INITIALIZE NUMBER OF 1 BITS TO ZERO 
LDA VALUE ;GET DATA 
ASL A ;DROP BIT 7 OF THE DATA, NEXT BIT TO BIT 7 
STA VALUE 
GELOOP: BPL SHFT ;BRANCH IF NEXT BIT (BIT 7) IS O 
INY ;ELSE INCREMENT NUMBER OF 1 BITS 
SHFT: ASL A 
BNE GELOOP ;BRANCH IF THERE ARE MORE 1 BITS IN THE BYTE 
TYA ;BIT 0 OF NUMBER OF 1 BITS IS EVEN PARITY 
LSR A ;MOVE PARITY TO CARRY 
LDA VALUE 
ROR A ;ROTATE ONCE TO FORM BYTE WITH PARITY IN BIT 7 
STA VALUE 


;RESTORE X AND Y AND EXIT 


PLA 

TAY 

PLA 

TAX 

LDA VALUE ;GET VALUE WITH PARITY 
RTS ; RETURN 


;DATA SECTION | 
VALUE: .BLOCK 1 ;TEMPORARY DATA STORAGE 


SAMPLE EXECUTION: 


ча че че че WO 
че ча зо че чо 
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;GENERATE PARITY FOR VALUES FROM 0..127 AND STORE THEM IN BUFFER 
SC1003: 


LDX $0 
SClLP: 
TXA 
JSR GEPRTY ;GENERATE EVEN PARITY 
STA BUFFER,X ;STORE THE VALUE WITH EVEN PARITY 
INX 
CPX $80H 
BNE SClLP ;BRANCH IF NOT DONE 
BRK 


BUFFER .BLOCK 128 


. END ; PROGRAM 


Check Parity (CKPRTY) 


Sets the Carry flag to 0 if a data byte has 
even parity and to 1 if it has odd parity. A 
byte has even parity if it has an even number 
of 1 bits and odd parity if it has an odd num- 
ber of 1 bits. 

Procedure: The program counts the num- 
ber of 1 bits in the data by shifting the data 
left logically and incrementing a count if the 
bit shifted into the Carry is 1. The program 
quits as soon as the shifted data becomes zero 
(since zero obviously does not contain any 1 
bits). The least significant bit of the count is 0 
if the data byte contains an even number of 1 
bits and 1 if the data byte contains an odd 
number of 1 bits. The program concludes by 
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Registers Used: A,F 


Execution Time: 111 cycles maximum. Depends 
on the nümber of 1 bits in the data and how 
rapidly the series of logical shifts makes the data 
zero. The program exits as soon as the remaining 
bits of data are all zeros, so the execution time is 
shorter if the less significant bits are all zeros. 


Program Size: 25 bytes 


Data Memory Required: One byte anywhere in 
RAM (at address VALUE) for the data. 


shifting the least significant bit of the count 
to the Carry flag. 


Entry Conditions 


Data byte in the accumulator (bit 7 is 
included in the parity generation). 


Exit Conditions 


Carry = 0 if the parity of the data byte is 
even, 1 if the parity is odd. 


Examples 


1. Data: (А) = 42,4 = 01000010, (ASCII В) 


Result: Carry = 0, since 421, (01000010,) has 


an even number (2) of 1 bits. 


2. Data: 


A) = 43 = 01000011, (ASCII C) 


Result: Carry = 1, since 4315 (01000011,) has 


an odd number (3) of 1 bits. 


431 
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; Title Check parity 

; Name: CKPRTY 

; 
Purpose: Check parity of a byte 
Entry: Register A - Byte with parity in bit 7 
Exit: Carry 0 if parity is even. 


Carry l if parity is odd. 


Registers used: A,F 


Time: 111 cycles maximum 
Size: Program 25 bytes 
Data l byte 


чо че че чо че чо чо че че чо ч9 чо чо WO че WE 


СКРЕТУ: 
;ЗАУЕ DATA VALUE 
STA VALUE 
¿SAVE REGISTERS X AND Y 
TXA 
PHA 
TYA 
PHA 
;COUNT THE NUMBER OF 1 BITS IN THE VALUE 
LDY #0 ;NUMBER OF 1 BITS = 0 
LDA VALUE 
CKLOOP: BPL SHFT :BRANCH IF NEXT BIT = 0 (BIT 7) 
INY *ELSE INCREMENT NUMBER ОЕ 1 BITS 
SHFT: ASL A ¿SHIFT NEXT ВІТ TO ВІТ 7 
BNE CKLOOP ;CONTINUE UNTIL ALL BITS ARE 0 
TYA 
LSR A ¿CARRY FLAG = LSB OF NUMBER OF 1 BITS 
¿RESTORE REGISTERS X AND Y AND EXIT 
PLA 
TAY 
PLA 
TAX 


RTS 


=e чо че чо 


чө e чо Г TO че че We че ча SO WH че че WE WE 
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VALUE .BLOCK 1 ;DATA BYTE 


SAMPLE EXECUTION: 


же чо ча че чо 
чо че wo чо чо 


;CHECK PARITY FOR VALUES FROM 0..255 AND STORE THEM IN BUFFER 
;BUFFER[VALUE] = 0 FOR EVEN PARITY 
;BUFFER[VALUE] = 1 FOR ODD PARITY 


SC1004: 
LDX #0 
SCLP: 
TXA 
JSR CKPRTY ;CHECK PARITY 
LDA #0 
ROL A ;GET PARITY TO BIT 0 
STA BUFFER,X ;STORE THE PARITY 
INX ; INCREMENT VALUE 
BNE SCLP ;CONTINUE THROUGH ALL THE VALUES 
BRK 
JMP SC1004 


BUFFER .BLOCK 256 


. END ; PROGRAM 


CRC-16 Checking and Generation (ICRC16,CRC16) 10E 


Generates a 16-bit cyclic redundancy 
check (CRC) based on the IBM Binary Syn- 
chronous Communications (BSC or Bisync) 
protocol. Uses the polynomial X!6 + X!5 + 
X? + 1to generate the CRC. The entry point 
ICRCI6 initializes the CRC to 0 and the 
polynomial to the appropriate bit pattern. 
The entry point CRC16 combines the pre- 
vious CRC with the CRC generated from the 
next byte of data. The entry point GCRCI6 
returns the CRC. 

Procedure: Subroutine ICRC16 initializes 
the CRC to zero and the polynomial to the 
appropriate value (one in each bit position 
corresponding to a power of X present in the 
polynomial). Subroutine CRC16 updates the 
CRC according to a specific byte of data. It 
updates the CRC by shifting the data and the 
CRC left one bit and exclusive-ORing the 
CRC with the polynomial whenever the 
exclusive-OR of the data bit and the most sig- 
nificant bit of the CRC is 1. Subroutine 
CRC16 leaves the СЕС in memory locations 
CRC (less significant byte) and CRC+1 
(more significant byte). Subroutine GCRC16 


Registers Used: 
1. By ICRC16: А, Е 
2. By CRC16: None 
3. By ОСКС16: А, Е, Y 


Execution Time: 


1. For ICRC16: 28 cycles 

2. For CRC16: 302 cycles minimum if no 1 
bits are generated and the polynomial and the 
CRC never have to be EXCLUSIVE-ORed. 19 
extra cycles for each time the polynomial and the 
CRC must be EXCLUSIVE-ORed. Thus, the 


maximum execution time is 302 + 19*8 = 454 
cycles. 


3. For GCRCI6: 


Program Size: 

1. For ICRC16: 

2. For CRC16: 53 bytes 

3. For GCRC16: 7 bytes 
Data Memory Required: Five bytes anywhere in 
RAM for the CRC (two bytes starting at address 
CRC), the polynomial (two bytes starting at 
address PLY), and the data byte (one byte at 
address VALUE). 


14 cycles 


19 bytes 


loads the CRC into the accumulator (more 
significant byte) and index register Y (less 
significant byte). 


Entry Conditions 


1. For ICRC16: none 

2. For CRCI6: data byte іп the accumula- 
tor, previous CRC in memory locations CRC 
(less significant byte) and CRC+1 (more 
significant byte), CRC polynomial іп memory 
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locations PLY (less significant byte) and 
PLY +1 (more significant byte) 

3. For GCRC16: CRC in memory loca- 
tions CRC (less significant byte), and 
CRC+1 (more significant byte). 
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Exit Conditions 


1. For ICRC16: zero (initial CRC value) 
in memory locations CRC (less significant 
byte) and CRC+1 (more significant byte) 
CRC polynomial in memory locations PLY 
(less significant byte) and PLY +1 (more sig- 
nificant byte) 


2. For CRC16: CRC with current data 
byte included in memory locations CRC (less 


significant byte) and CRC+1 (more signifi- 
cant byte) 

3. For GCRC16: CRC in the accumulator 
(more significant byte) and index register Y 
(less significant byte). 


Examples 


1. Generating a CRC. 

Call ICRC16 to initialize the polynomial and start the 
CRC at zero. 

Call CRC16 to update the CRC for each byte of data 
for which the CRC is to be generated. 

Call GCRC16 to obtain the resulting CRC (more sig- 
nificant byte in A, less significant byte in Y). 

2. Checking a CRC. 


Call ICRC16 to initialize the polynomial and start the 
CRC at zero. 

Call CRC16 to update the CRC for each byte of data 
(including the stored CRC) for checking. 

Call GCRC16 to obtain the resulting CRC (more sig- 
nificant byte in A, less significant byte in Y). If there 
were no errors, both bytes should be zero. 


Reference 


J.E. McNamara, Technical Aspects of Data 
Communications, Digital Equipment Corp., 
Maynard, Mass., 1977. This book contains 
explanations of CRC and the various com- 
munications protocols. 


Note that only subroutine ICRC16 
depends on the particular CRC polynomial 
being used. To change the polynomial 
requires only a change of the data that 
ICRC16 loads into memory locations PLY 
(less significant byte) and PLY +1 (more sig- 
nificant byte). 
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CRC16: 


Title 
Name: 


Purpose: 


Entry: 


Exit: 


Registers used: 


Time: 


Size: 


Generate CRC-16 
CRC16 


Generate a 16 bit CRC based on the IBM binary 
synchronous communications protocol. The CRC is 
based on the following polynomial: 
(^ indicates "to the power") 
Х716 + X^15 + X2 +1 


To generate a CRC: 

1) Call ICRC16 to initialize the CRC to 0 
and the CRC polynomial. 

2) Call CRC16 for each byte of data for 
which the CRC is to be generated. 

3) Call GCRC16 to get the resulting CRC. 
It should then be appended to the data, 
high byte first. 


To check a CRC: 
1) Call ICRC16 to initialize the CRC. 
2) Call CRCl6 for each byte of data and 
the 2 bytes of CRC previously generated. 
3) Call GCRC16 to obtain the CRC. It will 
be zero if no errors have occurred. 


Register A = Data byte 


CRCLO and CRCHI updated 
Register A = Data byte 


None 


302 cycles minimum if no 1 bits are generated. 
454 cycles maximum if all 1 bits are generated. 


Program 53 bytes 
Data 5 bytes 


;SAVE THE DATA BYTE 


STA VALUE 


; SAVE ALL REGISTERS 


PHP 
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;LOOP THROUGH EACH BIT GENERATING THE CRC 


LDX $8 ; 8 BITS PER BYTE 
CRCLP: 
ASL VALUE ;MOVE BIT 7 TO CARRY 
ROR A sMOVE CARRY TO ВІТ 7 
AND #10000000B sMASK OFF ALL OTHER BITS 
EOR СЕС+1 ;EXCLUSIVE OR BIT 7 WITH BIT 16 OF THE СКС 
ASL CRC :ЅНІЕТ CRC LEFT 1 BIT (FIRST THE LOW BYTE, 
ROL A ; THEN THE HIGH BYTE) 
BCC СЕСІРІ ;ВВАМСН IF THE MSB OF THE CRC IS 1 
¿BIT 7 IS 1 SO EXCLUSIVE-OR THE CRC WITH THE POLYNOMIAL 
TAY ? ЗАУЕ CRC HIGH IN Y 
LDA CRC 
EOR PLY ;EXCLUSIVE OR LOW BYTE WITH THE POLYNOMIAL 
STA CRC 
TYA 
EOR PLY+1 ;DO HIGH BYTE ALSO 
CRCLP1: 
STA СКС+1 ;STORE THE HIGH BYTE OF THE CRC 
DEX 
BNE CRCLP ? ВКАМСН IF NOT DONE WITH ALL 8 BITS 
;RESTORE THE REGISTERS AND EXIT 
PLA 
TAX 
PLA 
TAY 
PLA 
PLP 
RTS 


; kk k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k 


;ROUTINE: ICRC16 

; PURPOSE: INITIALIZE CRCHI, CRCLO, PLYHI, PLYLO 
;ENTRY: NONE 

;EXIT: CRC AND POLYNOMIAL INITIALIZED 


;REGISTERS USED: A,F 
; ok k k k k e k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k h 


ICRC16: 

LDA #0 

STA CRC ;CRC = 0 

STA CRC+1 

LDA #5 

STA PLY ;PLY = 8005H 
;8005H IS FOR X^164X^154X^241 
; (1 ІМ EACH POSITION FOR WHICH A POWER 
; APPEARS IN THE FORMULA) 

LDA #80H 

STA PLY+1 


RTS 
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: k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k ЖК 


;ROUTINE: GCRC16 
; PURPOSE: GET THE CRC16 VALUE 


; ENTRY: 
; EXIT: 


[4 
; REGISTE 


NONE 


REGISTER A 
REGISTER Y 
RS USED: 


A,F,Y 


CRC16 HIGH BYTE 
CRC16 LOW BYTE 


p * k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k 


GCRC16: 


VALUE: 
CRC: 
PLY: 


“с me че We че 


SC1005: 


GENLP: 


LDA 
LDY 
RTS 


. BLOCK 


. BLOCK 
. BLOCK 


SAMPLE 


СЕС+1 
СЕС 


1 
2 
2 


EXECUTION: 


HIGH BYTE 
LOW BYTE 


?А 
;Ү 


;DATA BYTE 
;CRC VALUE 
; POLYNOMIAL VALUE USED TO GENERATE THE CRC 


че че че WO TO 


; GENERATE А CRC FOR А VALUE OF 1 AND CHECK IT 


JSR 
LDA 
JSR 
JSR 
TAX 
JSR 
LDA 
JSR 
TXA 
JSR 
TYA 
JSR 
JSR 
BRK 


;GENERATE A CRC FOR THE 


JSR 
LDX 


TXA 
JSR 


INX 
BNE 


JSR 
STA 
STY 


ICRC16 
#1 
CRC16 
GCRC16 
ICRC16 
#1 
CRC16 
CRC16 


CRC16 
GCRC16 


ICRC16 
#0 


CRC16 
GENLP 


GCRC16 


CRCVAL+1 


CRCVAL 


; GENERATE CRC 


;SAVE CRC HIGH BYTE IN REGISTER X 
;INITIALIZE AGAIN 


; СНЕСК CRC BY GENERATING IT FOR DATA 


; AND THE STORED CRC ALSO 


;THE CRC SHOULD BE ZERO IN REGISTERS A AND Y 


VALUES FROM 0..255 AND CHECK IT 


;GET NEXT BYTE 
;UPDATE CRC 


;BRANCH IF NOT DONE 


;GET RESULTING CRC 
;AND SAVE IT 
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;CHECK THE CRC BY GENERATING IT AGAIN 


JSR ICRC16 
LDX #0 
СНКІР: 
ТХА 
JSR CRC16 
INX 
BNE CHKLP 
;ALSO INCLUDE STORED CRC IN CHECK 
LDA CRCVAL+1 | 
JSR CRC16 ;HIGH BYTE OF CRC FIRST 
LDA CRCVAL 
JSR CRC16 ;THEN LOW BYTE OF CRC 
JSR GCRC16 ‚СЕТ RESULTING CRC 
BRK ;IT SHOULD BE O0 
JMP SC1005 


CRCVAL: BLOCK 2 


. END 


I/O Device Table Handler (IOHDLR) 


10F 


Performs input and output in a device- 
independent manner using I/O control 
blocks and an I/O device table. The I/O 
device table consists of a linked list; each 
entry contains a link to the next entry, the 
device number, and starting addresses for 
routines that initialize the device, determine 
its input status, read data from it, determine 
its output status, and write data to it. An I/O 
control block is an array containing the 
device number, the operation number, 
device status, the starting address of the 
device's buffer, and the length of the device's 
buffer. The user must provide IOHDLR with 
the address of an appropriate I/O control 
block and the data if only one byte is to be 
written. IOHDLR will return a copy of the 
status byte and the data if only one byte is 
read. | 

This subroutine is intended as an example 
of how to handle input and output in a 
device-independent manner. The I/O device 
table must be constructed using subroutines 
INITIO, which initializes the device list to 
empty, and ADDDL, which adds a device to 
the list. A specific example for the Apple II 
sets up the Apple II console as device 1 and 
the printer as device 2; a test routine reads a 
line from the console and echoes it to the 
console and the printer. 

A general purpose program will perform 
input or output by obtaining or constructing 
an I/O control block and then calling 
IOHDLR. Subroutine IOHDLR will then 
determine which device to use and how to 
transfer control to its I/O driver by using the 
I/O device table. 

Procedure: The program first initializes the 
status byte to zero, indicating no errors. It 


440 


Registers Used 
1. By IOHDRL: All 
2. By INITL: А, Е 
3. Ву ADDDL: All 


Execution Time 

1. For IOHDLR: 93 cycles overhead plus 
59 cycles for each unsuccessful match of a device 
number 


2. For INITL: 14 cycles 


3. For ADDDL: 48 cycles 


Program Size 
1. For IOHDLR: 101 bytes 


2. For INITL: 9 bytes 
3. For ADDDL: 21 bytes 


Data Memory Required: Three bytes anywhere 
in RAM plus six bytes on page 0. The three bytes 
anywhere in RAM hold an indirect address used 
to vector to an I/O subroutine (two bytes starting 
at address OPADR) and the X register (one byte 
at address SVXREG). The six bytes on page 0 
hold the starting address of the I/O control block 
(two bytes starting at address IOCB), the head of 
the list of devices (two bytes starting at address 
DVLST), and the starting address of the current 
device table entry (two bytes starting at address 
CURDEVY). 


then searches the device table, looking for 
the device number in the I/O control block. If 
it does not find a match in the table, it exits 
with an appropriate error number in the 
status byte. If the program finds a device with 
the proper device number, it checks for a 
valid operation and transfers control to the 
appropriate routine from the entry in the 
device table. That routine must then transfer 
control back to the original calling routine. If 
the operation is invalid (the operation num- 
ber is too large or the starting address for the 
routine is zero), the program returns with an 
error indication in the status byte. 


Subroutine INITDL initializes the device 
list, setting the initial link to zero. 
Subroutine ADDDL adds an entry to the 


Entry Conditions 


1. For IOHDLR: 
(A) = More significant byte of starting 
address of input/output control block 
(Y) = Less significant byte of starting 
address of input/output control block 
(X) = Byte of data if the operation is to write 
one byte. 


2. For INITL: None 
3. For ADDDL: 
(A) = More significant byte of starting 


address of a device table entry 


(Y) = Less significant byte of starting 
address of a device table entry. 
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device list, making its address the head of the 
list and setting its link field to the old head of 
the list. 


Exit Conditions 


1. For IOHDLR: 
(A) = I/O control block status byte if an 
error is found; otherwise, the routine exits to 
the appropriate I/O driver. 
(X) — Byte of data if the Mà is to read 
one byte. 
2. For INITL: 
Device list header (addresses DVLST and 
DVLST+1) cleared to indicate empty list. 
3. For ADDDL: 
Device table entry added to list. 


Example 


In the example provided, we have the follow- 
ing structure: 


INPUT/OUTPUT OPERATIONS 
Operation 


Number Operation 
0 Initialize device 
1 Determine input status 
2 Read 1 byte from input device 
3 Read N bytes from input device (normally 
one line) 
4 Determine output status 
5 Write one byte to output device 


6 Write N bytes to output device (normally 
one line) 


INPUT/OUTPUT CONTROL BLOCK 


Index Contents 

0 Device number 

1 Operation number 

2 Status 

3 Less significant byte of starting address of 
buffer 

4 More significant byte of starting address of 
buffer 

$e ^ Less significant byte of buffer length 

6 More significant byte of buffer length 
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Index 


че че чо чо 
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10 


11 


Title 
Name: 


DEVICE TABLE ENTRY 


Contents 
Less significant byte of link field (starting 
address of next element) 


More significant byte of link field (starting 
address of next element) 


Device number 

Less significant byte of starting address of 
device initialization routine 

More significant byte of starting address of 
device initialization routine 

Less significant byte of starting address of 
input status determination routine 

More significant byte of starting address of 
input status determination routine 

Less significant byte of starting address of 
input driver routine (read 1 byte only) 

More significant byte of starting address of 
input driver routine (read 1 byte only) 

Less significant byte of starting address of 
input driver routine (N bytes or 1 line) 

More significant byte of starting address of 
input driver routine (N bytes or 1 line) 

Less significant byte of starting address of 
output status determination routine 


12 


13 


14 


15 


16 


More significant byte of starting address of 
output status determination routine 
Less significant byte of starting address of 
output driver routine (write 1 byte only) 
More significant byte of starting address of 
output driver routine (write 1 byte only) 
Less significant byte of starting address of 
output driver routine (N bytes or | line) 
More significant byte of starting address of 
output driver routine (N bytes or 1 line) 


If an operation is irrelevant or undefined 
for a particular device (e.g., output status 
determination for a keyboard or an input 
driver routine for a printer), the correspond- 
ing starting address in the device table must 
be set to zero (i.e., 0000,,). 


Value 


STATUS VALUES 


Description 
No errors 
Bad device number (no such device) 


Data available from input device, no such 
operation for I/O 


Output device ready 


IOHDLR 


Purpose: 


devices 


I/O Device table handler 


Perform 1/0 іп a device independent manner. 
This can only be implemented by accessing all 
in the same way using a I/O Control 
Block (IOCB) and a device table. The routines 
here will allow the following operations: 


"eo че че чо 
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Operation number Description 
Initialize device 
Input status 

Read 1 byte 

Read N bytes 
Output status 
Write 1 byte 
Write N bytes 


OU & WN EF © 


Other operations that could be included are 
Open, Close, Delete, Rename, and Append which 
would support devices such as floppy disks. 
A IOCB will be an array of the following form: 


IOCB 


+ 0 = Device number 
IOCB + 1 = Operation number 
IOCB + 2 = Status 
IOCB + 3 = Low byte buffer address 
IOCB + 4 = High byte of buffer address 
IOCB + 5 = Low byte of buffer length 
IOCB + 6 = High byte of buffer length 


The device table is implemented as a linked 
list. Two routines maintain the list: INITIO, 
which initializes the device list to empty, and 
ADDDL, which adds a device to the list. 

A device table entry has the following form: 


DVTBL + 0 = Low byte of link field 

DVTBL + 1 = High byte of link field 

DVTBL + 2 = Device number 

DVTBL + 3 = Low byte of initialize device 

DVTBL + 4 = High byte of initialize device 

DVTBL + 5 = Low byte of input status routine 

DVTBL + 6 = High byte of input status routine 

DVTBL + 7 = Low byte of input 1 byte routine 

DVTBL + 8 = High byte of input 1 byte routine 

DVTBL + 9 = Low byte of input N bytes routine 

DVTBL + 10= High byte of input N bytes routine 

DVTBL + 11= Low byte of output status routine 

DVTBL + 12= High byte of output status routine 

DVTBL + 13= Low byte of output 1 byte routine 

DVTBL + 14= High byte of output 1 byte routine 

DVTBL + 15= Low byte of output N bytes routine 

DVTBL + 16= High byte of output N bytes routine 

Entry: Register A = High byte of IOCB 

Register Y = Low byte of IOCB 

Register X = For write 1 byte contains the byte 
to write, a buffer is not used. 

Exit: Register A a copy of the IOCB status byte 


Register X = For read 1 byte contains the byte 
read, a buffer is not used. 
Status byte of IOCB is 0 if the operation was 
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completed successfully; otherwise it contains 
the error number. 


Status value Description 
0 No errors 
1 Bad device number 
2 Input data available, no such 
operation 
3 Output ready 


Registers used: All 


Time: 93 cycles minimum plus 59 cycles for each 
device in the list which. is not the requested 
device. 

Size: Program 131 bytes 
Data 3 bytes plus 


6 bytes in page zero 


me че чо чо чо че че VO че WO че че VO оо че TOE ча ч9 чо че чо WS 
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;IOCB AND DEVICE TABLE EQUATES 


IOCBDN: .EQU 0 ;ТОСВ DEVICE NUMBER 

IOCBOP: .EQU 1 ? ТОСВ OPERATION NUMBER 

IOCBST: .EQU 2 ;1OCB STATUS 

IOCBBA: .EQU 3 ? ТОСВ BUFFER ADDRESS 

IOCBBL: .EQU 5 ;ТОСВ BUFFER LENGTH 

DTLNK:  .EQU 0 ;DEVICE TABLE LINK FIELD 

DTDN: . EQU 2 ;DEVICE TABLE DEVICE NUMBER 

DTSR: . EQU 3 ;BEGINNING OF DEVICE TABLE SUBROUTINES 


;OPERATION NUMBERS 
NUMOP: .EQU 
INIT: . EQU 
ISTAT: .EQU 
RIBYTE: .EQU 
RNBYTE: .EQU 
OSTAT: .Е00 
WIBYTE: .EQU 
WNBYTE: .EQU 


;NUMBER OF OPERATIONS 
;INITIALIZATION 

; INPUT STATUS 

;READ l BYTE 

;READ N BYTES 

;OUTPUT STATUS 

;WRITE 1 BYTE 

;WRITE N BYTES 


ON Ui i WH FO М 


;PAGE ZERO DEFINITIONS 


IOCBA:  .EQU ODOH ;ADDRESS OF THE IOCB 
DVLST: .EQU 0D2H ;ADDRESS OF A LIST OF DEVICES 
CURDEV: .EQU OD4H ;STARTING ADDRESS OF THE CURRENT DEVICE TABLE ENTRY 
IOHDLR: 
;SAVE IOCB ADDRESS AND X REGISTER 
STA IOCBA+1 
STY IOCBA 


STX SVXREG 


SRCHLP: 


FOUND: 
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;INITIALIZE STATUS BYTE TO ZERO (NO ERRORS) 


LDY #IOCBST 

LDA #0 

STA (ТОСВА) ,Y ;STATUS := 0 
;SEARCH DEVICE LIST FOR THIS DEVICE 

LDA DVLST ;START AT THE BEGINNING OF THE DEVICE LIST 
STA CURDEV 

LDA DVLST+1 

STA CURDEV+1 

;GET DEVICE NUMBER FROM IOCB TO REGISTER X 
LDY #IOCBDN 

LDA (IOCBA),Y 

TAX 


;CHECK IF AT END OF DEVICE TABLE LIST (LINK FIELD - 0000) 


LDA CURDEV 

ORA CURDEV+1 

BEQ BADDN ;BRANCH IF NO MORE DEVICES 

;CHECK IF THIS IS THE CORRECT DEVICE 

TXA 

LDY #DTDN 

CMP (CURDEV) ,Y ? СОМРАКЕ THIS DEVICE NUMBER WITH THE REQUESTED 
; NUMBER 

BEQ FOUND ;BRANCH IF THE DEVICE IS FOUND 


;ADVANCE TO THE NEXT DEVICE TABLE ENTRY THROUGH THE LINK FIELD 
; MAKE CURRENT DEVICE - LINK 


LDY $DTLNK 

LDA (CURDEV) ,Y ;GET LOW BYTE OF LINK FIELD 

PHA ; SAVE ON STACK 

INY 

LDA (CURDEV) , Y ;GET HIGH BYTE OF LINK FIELD 
STA CURDEV+1 

PLA ;RECOVER LOW BYTE OF LINK FIELD 
STA CURDEV 

JMP SRCHLP ;CONTINUE SEARCHING 


;FOUND THE DEVICE SO VECTOR TO THE APPROPRIATE ROUTINE IF ANY 


;CHECK THAT THE OPERATION IS VALID 


LDY #IOCBOP 

LDA (ТОСВА),Ү ;GET OPERATION NUMBER 

CMP #NUMOP 

BCS BADOP ;BRANCH IF OPERATION NUMBER IS TOO LARGE 

? GET OPERATION ADDRESS (ZERO INDICATES INVALID OPERATION) 

ASL A ;MULTIPLY OPERATION NUMBER BY 2 TO INDEX 
CLC ; ADDRESSES 

ADC #DTSR ;ADD TO OFFSET FOR DEVICE TABLE SUBROUTINES 


TAY ;USE AS INDEX INTO DEVICE TABLE 
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LDA (CURDEV) ,Y 
STA OPADR ;STORE LOW BYTE 
INY 
LDA (CURDEV) ,Y 
STA OPADR+1 ;STORE HIGH BYTE | 
ORA OPADR ;CHECK FOR NON-ZERO OPERATION ADDRESS 
BEQ BADOP ;BRANCH IF OPERATION IS INVALID (ADDRESS - 0) 
LDX SVXREG ;RESTORE X REGISTER 
JMP (OPADR) ;GOTO ROUTINE 
BADDN: ` 
LDA #1 ;ERROR CODE 1 -- NO SUCH DEVICE 
BNE EREXIT 
BADOP: 
LDA $2 ;ERROR CODE 2 -- NO SUCH OPERATION 
EREXIT: 
LDY #IOCBST 
STA (IOCBA),Y ;STORE ERROR STATUS 
RTS 


; k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k kk 


;ROUTINE: INITDL 

;PURPOSE: INITIALIZE THE DEVICE LIST TO EMPTY 
sENTRY: NONE 

;EXIT: THE DEVICE LIST SET TO NO ITEMS 


;REGISTERS USED: A,F 
p kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


INITDL: 
¿INITIALIZE DEVICE LIST TO 0 TO INDICATE NO DEVICES 
LDA $0 
STA DVLST 
STA DVLST+1 
RTS 


; k k k k k k k k k k k k k k k k k k k k k kk k k k k k k k k k k k k k k k k k k k K 


;ROUTINE: ADDDL 

;PURPOSE: ADD A DEVICE TO THE DEVICE LIST 

sENTRY: REGISTER A = HIGH BYTE OF A DEVICE TABLE ENTRY 
; REGISTER Y - LOW BYTE OF A DEVICE TABLE ENTRY 
;EXIT: THE DEVICE TABLE ADDED TO THE DEVICE LIST 


;REGISTERS USED: ALL 
p kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


ADDDL: 
;X,Y = NEW DEVICE TABLE ENTRY 
TAX 


;PUSH CURRENT HEAD OF DEVICE LIST ON TO STACK 
LDA DVLST+1 
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PHA ;PUSH HIGH BYTE OF CURRENT HEAD OF DEVICE LIST 
LDA DVLST 
PHA ;PUSH LOW BYTE ALSO 
;MAKE NEW DEVICE TABLE ENTRY THE HEAD OF THE DEVICE LIST 
STY DVLST 
STX DVLST+1 
;SET LINK FIELD OF THE NEW DEVICE TO THE OLD HEAD OF THE DEVICE LIST 
PLA 
. LDY #0 
STA (DVLST),Y ;STORE THE LOW BYTE 
PLA 
INY 
STA (DVLST),Y ;STORE THE HIGH BYTE 
RTS 


; 
;DATA SECTION 


OPADR: .BLOCK 2 ;OPERATION ADDRESS USED TO VECTOR TO 
; SUBROUTINE 
SVXREG: .BLOCK 1 ;TEMPORARY STORAGE FOR X REGISTER 


SAMPLE EXECUTION:. 


This test routine will set up the APPLE II console as 
device 1 and an APPLE II printer which is assumed to be 
in slot 1 as device 2. The test routine will then read 
a line from the console and echo it to the console and 
the printer. 


ос me 0 MO TO зо че че Ó WE че 
=e че чо че VE че че че че чо чо 


; EQUATE 
CR . EQU 08DH ;APPLE ІІ CARRIAGE RETURN CHARACTER ` 
CBUF . EQU OD6H ;STARTING ADDRESS OF I/O BUFFER 
SC1006: 

;INITIALIZE DEVICE LIST 

JSR INITDL 

;SET UP APPLE CONSOLE AS DEVICE 1 

LDA CONDVA+1 

LDY CONDVA 

JSR ADDDL ;ADD CONSOLE DEVICE TO DEVICE LIST 

LDA SINIT ;INITIALIZE OPERATION 

STA IOCB+IOCBOP 

LDA #1 | 

STA IOCB+IOCBDN ;DEVICE NUMBER = 1 

LDA АТОСВ+1 

LDY AIOCB 


JSR IOHDLR ;PERFORM INITIALIZATION 
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TSTLP: 


;SET UP APPLE PRINTER AS DEVICE 2 


LDA PRTDVA+1 

LDY PRTDVA 

JSR ADDDL ;ADD PRINTER DEVICE TO DEVICE LIST 
LDA #INIT ? INITIALIZE OPERATION 

STA IOCB+IOCBOP 

LDA #2 

STA IOCB+IOCBDN ;DEVICE NUMBER = 2 

LDA АТОСВ+1 

ГОУ АТОСВ 

JSR IOHDLR ;INITIALIZE PRINTER DEVICE 


;LOOP READING LINES FROM CONSOLE, AND ECHOING THEM TO 
; THE CONSOLE AND PRINTER UNTIL A BLANK LINE IS ENTERED 


LDA #1 ;SET DEVICE TO NUMBER 1 (CONSOLE) 

STA IOCB+IOCBDN 

LDA #RNBYTE ;SET OPERATION TO READ N BYTES 

STA IOCB+IOCBOP 

LDA #LENBUF ;SET BUFFER LENGTH TO LENBUF 

STA IOCB+IOCBBL 

LDA #0 ;THE HIGH BYTE OF LENBUF IS 0 IN OUR EXAMPLE 
STA IOCB+IOCBBL+1 

LDA АТОСВ+1 ;SET REGISTERS A,Y TO THE IOCB ADDRESS 
LDY AIOCB 

JSR IOHDLR ;READ A LINE 


;ECHO THE LINE TO THE CONSOLE | 
;DEVICE IS STILL CONSOLE FROM THE READ LINE ABOVE 


LDA #WNBYTE ;SET OPERATION TO WRITE N BYTES 

STA IOCB+IOCBOP 

LDA АТОСВ+1 ;SET REGISTERS A,Y TO THE IOCB ADDRESS 
LDY AIOCB 

JSR IOHDLR ;WRITE N BYTES 

;OUTPUT A CARRIAGE RETURN TO CONSOLE 

LDX #CR ;SET REGISTER X TO CARRIAGE RETURN CHARACTER 
LDA #W1BYTE ;SET OPERATION TO WRITE 1 BYTE 

STA IOCB+IOCBOP 

LDA АТОСВ+1 ;SET REGISTERS A,Y TO THE IOCB ADDRESS 
LDY AIOCB 

JSR IOHDLR ;WRITE 1 BYTE 

;ECHO THE LINE TO THE PRINTER ALSO 

LDA $2 ;SET DEVICE TO NUMBER 2 (PRINTER) 

STA IOCB+IOCBDN 

LDA #WNBYTE ;SET OPERATION TO WRITE N BYTES 

STA IOCB+IOCBOP 

LDA АТОСВ+1 ;SET REGISTERS A,Y TO THE IOCB ADDRESS 
LDY AIOCB 

JSR IOHDLR ;WRITE N BYTES 


;WRITE A CARRIAGE RETURN TO THE PRINTER 
LDX #8DH ;SET REGISTER X TO CARRIAGE RETURN CHARACTER 
LDA #W1BYTE ;SET OPERATION TO WRITE 1 BYTE 


? ТОСВ FOR PREFORMING THE IO 


AIOCB: 
IOCB 


; BUFFER 


LENBUF 
BUFFER 


; DEVICE 


CONDVA: 
CONDV: 


PRTDVA: 
PRTDV: 


. WORD 
. BLOCK 
. BLOCK 
. BLOCK 
. WORD 
.WORD 


. EQU 
. BLOCK 


IOCB+IOCBOP 
АТОСВ+1 


АТОСВ 
IOHDLR 


IOCB+IOCBBL 


IOCB+IOCBBL,Y 


TSTLP 


SC1006 


IOCB 

1 

1 

1 
BUFFER 
LENBUF 


127 
LENBUF 


TABLE ENTRIES 


. WORD 
. WORD 
. BYTE 
.WORD 


. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 


. WORD 
. WORD 
. BYTE 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 


CONDV 
0 
l 
CINIT 


CISTAT 
CIN 
CINN 
COSTAT 
COUT 
COUTN 


PRTDV 
0 

2 
PINIT 
0 

0 

0 
POSTAT 
POUT 
POUTN 
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;SET REGISTERS A,Y TO THE IOCB ADDRESS 
;WRITE 1 BYTE 
;GET LOW BYTE 


JOR WITH HIGH BYTE 
¿BRANCH IF BUFFER LENGTH IS NOT ZERO 


sADDRESS OF THE IOCB 
:DEVICE NUMBER 

? ОРЕКАТТОМ NUMBER 
STATUS | 

:BUFFER ADDRESS 
;BUFFER LENGTH 


;CONSOLE DEVICE ADDRESS 
;LINK FIELD 

;DEVICE 1 

;CONSOLE INITIALIZE 


;CONSOLE INPUT STATUS 
;CONSOLE INPUT 1 BYTE 
;CONSOLE INPUT N BYTES 
;CONSOLE OUTPUT STATUS 
;CONSOLE OUTPUT 1 BYTE 
;CONSOLE OUTPUT N BYTES 


; PRINTER DEVICE ADDRESS 
;LINK FIELD 

;DEVICE 2 

;PRINTER INITIALIZE 

;NO PRINTER INPUT STATUS 
;NO PRINTER INPUT 1 BYTE 
;NO PRINTER INPUT N BYTES 
; PRINTER OUTPUT STATUS 

; PRINTER OUTPUT 1 BYTE 

; PRINTER OUTPUT N BYTES 


; k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k 


; CONSOLE I/O ROUTINES 
; k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k 
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; CONSOLE INITIALIZE 


CINIT: 
LDA 
RTS 


;CONSOLE INPUT 
CISTAT: 


LDA ОСОООН 
BPL CNONE 
LDA #2 
BNE CIS1 
CNONE: 
LDA #0 
CIS1 
LDY #IOCBST 
STA (IOCBA),Y 
RTS 
: CONSOLE READ 1 BYTE 
CIN: 
LDA С000Н 
ВРІ, СІМ 
ТХА 
LDA #0 
RTS 
sCONSOLE READ N BYTES 
CINN: 
; 33H = PROMPT LOCATION 
: 200H = BUFFER ADDRESS 
LDA $"?" OR 80H 
STA 033H 
JSR OFD6AH 
; VERIFY THAT THE NUMBER 
LDY #IOCBBL+1 
LDA (IOCBA),Y 
BNE CINN1 
DEY 
TXA 
CMP (IOCBA) ,Y 
BCC СІММІ 
BEQ СІММІ 
LDA (IOCBA),Y 
TAX 
СІММІ: 
ТХА 
5ТА (IOCBA),Y 
LDA $0 
INY 
STA (IOCBA),Y 


$0 


STATUS (READY IS 


;А = STATUS NO ERRORS 
;NO INITIALIZATION NECESSARY 


BIT 7 OF ADDRESS 0С000Н) 
;GET KEYBOARD STATUS BYTE 
;BRANCH IF CHARACTER IS NOT READY 


;INDICATE CHARACTER IS READY 
;BRANCH ALWAYS TAKEN 


;NOT READY 


;STORE STATUS AND LEAVE IT IN REGISTER A 


;WAIT FOR CHARACTER TO BECOME READY 
;MOVE CHARACTER TO REGISTER X 
;S TATUS = NO ERRORS 


;READ LINE USING THE APPLE MONITOR GETLN ROUTINE AT OFD6AH 


;SET BIT 7 

¿SET UP APPLE PROMPT CHARACTER 

;CALL APPLE MONITOR GETLN ROUTINE 

OF BYTES READ WILL FIT INTO THE CALLERS BUFFER 


;GET HIGH BYTE 
;BRANCH IF HIGH BYTE IS NOT ZERO 


;BRANCH IF THE NUMBER OF CHARACTERS READ IS 
; LESS THAN THE BUFFER LENGTH 
;BRANCH IF THE LENGTHS ARE EQUAL 


sOTHERWISE TRUNCATE THE NUMBER OF CHARACTERS 
: READ TO THE BUFFER LENGTH 


¿SET BUFFER LENGTH TO NUMBER OF CHARACTERS READ 


¿ZERO UPPER BYTE OF BUFFER LENGTH 
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;MOVE THE DATA FROM APPLE BUFFER AT 200H TO CALLER'S BUFFER 


LDY #ТОСВВА ;GET POINTER ТО CALLER'S ВОЕЕЕВ FROM IOCB 
LDA (IOCBA),Y | 
STA CBUF ;SAVE POINTER ON PAGE ZERO 
INY 
LDA (IOCBA),Y ;SET UP MSB OF POINTER ALSO 
STA CBUF+1 
TXA 
BEQ CINN3 ;EXIT IF NO BYTES TO MOVE 
LDY #0 
;NOW MOVE THE DATA TO CALLER'S BUFFER 
CINN2: 
LDA 200H,Y ;GET A BYTE FROM APPLE BUFFER 
STA (СВОЕ) ‚У ;MOVE BYTE TO CALLER'S BUFFER 
INY 
DEX 
BNE CINN2 ;COUNT BYTES 
;GOOD STATUS (0) - NO ERRORS 
CINN3: 
LDA #0 ;NO ERRORS 
RTS 


¿CONSOLE OUTPUT STATUS 

COSTAT: 
LDA #3 ¿STATUS IS ALWAYS READY TO OUTPUT 
RTS 


;CONSOLE OUTPUT 1 BYTE 


COUT: 
TXA 
СООТ: 
JSR OFDEDH ;APPLE CHARACTER OUTPUT ROUTINE 
LDA $0 ;STATUS - NO ERRORS 
RTS 
COUT1A: .WORD COUT1 ;ADDRESS OF OUTPUT ROUTINE TO BE PLACED IN A,Y 


;CONSOLE OUTPUT N BYTES 


COUTN: 
LDA COUTIA+1 
LDY COUTIA :А,Ү = ADDRESS OF OUTPUT ROUTINE 
JSR OUTN ¿CALL OUTPUT N CHARACTERS 
LDA #0 ¿STATUS = NO ERRORS 
RTS 


| k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k '*k 


; PRINTER ROUTINES 


; ASSUME PRINTER CARD IS IN SLOT 1 
; k k k k k k k k e k k k k k k k k k k k k k k k k k k k k k k k k k k k k k K 
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¿PRINTER INITIALIZE 


PINIT: 
LDA $0 sNOTHING TO DO, RETURN NO ERRORS 
RTS 
:PRINTER OUTPUT STATUS 
POSTAT: 
LDA #0 sASSUME ТТ IS ALWAYS READY 
RTS 
; PRINTER OUTPUT 1 BYTE 
POUT: 
TXA 
РООТІ1: 
JSR 0C107H CHARACTER OUTPUT ROUTINE 
LDA #0 
RTS 
POUTIA: .WORD POUTI ;ADDRESS OF CHARACTER OUTPUT ROUTINE ТО BE 
; PLACED IN A,Y 
¿PRINTER OUTPUT N BYTES 
POUTN: 
LDA РООТ1А+1 
LDY POUTIA :А,Ү = ADDRESS OF OUTPUT ROUTINE 
JSR OUTN :CALL OUTPUT N CHARACTERS 
LDA $0 ¿NO ERRORS 
RTS 


; k k k k k k k k k e k k k k k k k k k k k k k k k k k k k k k k k e k e ek k k x 


ROUTINE: OUTN 

;PURPOSE: OUTPUT N CHARACTERS 

ENTRY: REGISTER A = HIGH BYTE OF CHARACTER OUTPUT SUBROUTINE ADDRESS 
; REGISTER Y = LOW BYTE OF CHARACTER OUTPUT SUBROUTINE ADDRESS 
2 IOCBA = STARTING ADDRESS OF АМ IOCB 

;EXIT: DATA OUTPUT 
, 


REGISTERS USED: ALL 
* k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k 


OUTN: 
¿STORE ADDRESS OF THE CHARACTER OUTPUT SUBROUTINE 
STA COSR+1 
STY COSR 
? СЕТ OUTPUT BUFFER ADDRESS FROM IOCB, SAVE ON PAGE ZERO 
LDY #IOCBBA 
LDA (IOCBA),Y 
STA CBUF 
INY 
LDA (IOCBA),Y 


STA CBUF +1 


OUTLP: 


LPO: 


LPl1: 


LP2: 


DECLS: 


OUT3: 


COSR: 
BUFLEN: 
IDX: 
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;GET BUFFER LENGTH FROM IOCB, EXIT IF IT IS ZERO 
LDY #IOCBBL 


LDA (IOCBA),Y 

STA BUFLEN 

INY 

LDA (IOCBA),Y 

STA BUFLEN+1 

ORA BUF LEN 

BEQ OUT3 ;BRANCH IF BUFFER LENGTH IS ZERO 
;START AT BEGINNING OF BUFFER 

LDA $0 

STA IDX 

LDY IDX 

LDA (CBUF) ,Y ;GET NEXT CHARACTER FROM BUFFER 
JSR LPO ;WRITE CHARACTER TO OUTPUT DEVICE 
JMP LPl 

JMP (COSR) OUTPUT THE CHARACTER VIA THE CURRENT 


e 
, 
е 
? 


OUTPUT SUBROUTINE 


;INCREMENT TO THE NEXT CHARACTER IN THE BUFFER 

INC IDX 

BNE LP2 

INC СВОЕ+1 ; INCREMENT THE HIGH BYTE IS NECESSARY 


;DECREMENT BUFFER LENGTH, CONTINUE LOOPING IF IT IS NOT ZERO 


453 


LDA BUFLEN 

BNE DECLS 

DEC ВОРЬЕМ+1 ;BORROW FROM HIGH BYTE IF NECESSARY 
DEC BUFLEN ;ALWAYS DECREMENT LOW BYTE 

BNE OUTLP 

LDA BUFLEN+1 

BNE OUTLP ;CONTINUE UNLESS ALL CHARACTERS SENT 
RTS 

. WORD 0 ; ADDRESS OF THE CHARACTER OUTPUT SUBROUTINE 
. WORD 0 ; TEMPORARY BUFFER LENGTH 

. BYTE 0 ;TEMPORARY INDEX 


. END 


Initialize I/O Ports (IOPORTS) 


Initializes a set of I/O ports from an array 
of port addresses and initial values. Examples 
are given of initializing programmable I/O 
devices such as the 6520 Peripheral Interface 
Device (Adapter), the 6522 Versatile Inter- 
face Adapter, the 6530 Multifunction 
Device, the 6532 Multifunction Device, the 
6551 Asychronous Communications Device 
Adapter, and the 6850 Asynchronous Com- 
munications Device Adapter. 

This subroutine is intended as a 
generalized method for initializing I/O sec- 
tions. The initialization may involve data 
ports, data direction registers that determine 
whether bits are inputs or outputs, control or 
command registers that determine the 
operating modes of programmable devices, 
counters (in timers), priority registers, and 
other external registers or storage locations. 

Some of the tasks the user may perform 
with this routine are: | 


1. Assign bidirectional I/O lines as inputs 
or outputs. 


2. Initialize output ports to known starting 
values. 

3. Enable or disable interrupts from pe- 
ripheral chips. 


4. Determine operating modes, such as 
whether inputs are latched, whether strobes 
are produced, how priorities are assigned, 
whether timers operate continuously or only 
on demand, etc. 


5. Load initial counts into timers. 
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Registers Used: All 


Execution Time: 16 cycles overhead plus 52 
cycles per port entry. If, for example, NUMBER 
OF PORT ENTRIES = 10, execution time is 


52* 10 + 16 = 520 + 16 = 536 cycles. 
Program Size: 40 bytes plus the size of the table 


(three bytes per entry) 


Data Memory Required: Four bytes on page 0, 
two for a pointer to the array (starting at address 
ARY ADR, 0000, in the listing) and two for a 
pointer to the port (starting at address PRTADR, 
0002 in the listing). 


6. Select bit rates for communications. 


7. Clear or reset devices that are not tied 
to the overall system reset line. 


8. Initialize priority registers or assign 
initial priorities to interrupts or other opera- 
tions. 


9. Initialize vectors used in servicing 
interrupts, DMA requests, and other inputs. 


Procedure: The program loops through the 
specified number of ports, obtaining the port 
address and the initial value from the array 
and storing the initial value in the port 
address. This procedure does not depend on 
the type of devices used in the I/O section or 
on the number of devices. Additions and 
deletions can be made by means of appropri- 
ate changes in the array and in the parameters 
of the routine, without changing the routine 
itself. 


10G INITIALIZE VO PORTS (PORTS) 455 


Entry Conditions Exit Conditions 


(A) — More significant byte of starting All ports initialized. 
address of array of ports and initial values 

(Y) = Less significant byte of starting 
address of array of ports and initial values 

(X) = Number of entries in array (number 
of ports to initialize). 


Example 
Data: Number of ports to initialize = 3 Result: Initial value for port 1 stored in port 1 
Array elements are: address 
High byte of port 1 address Initial value for port 2 stored in port 2 
Low byte of port 1 address age к bal : 
Initial value for port 1 Initial value for port 3 stored in port 3 
address. 


High byte of port 2 address 
Low byte of port 2 address : 
I can боп Note that each element їп the array consists 
High byte of port 3 address of 3 bytes containing: 

Low byte of port 3 address Less significant byte of port address 


Initial value for port 3 More significant byte of port address 


Initial value for port 


оо че e че че че че че 
=e чо чо че чо NOH чо әб 


Title Initialize I/O ports 
Name: IPORTS 
Purpose: Initialize I/O ports from an array of port 


addresses and values. 


че че че че чо 
=e че че че чо 


Entry: Register A = High byte of array address 
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© чо че че TO че че че WE чо чо "6 «о чо чо чо TO чо че чо чо че че че чо 


Register Y - Low byte of array address 
Register X - Number of ports to initialize 


The array consists of 3 byte elements. 


асгау+0 = High byte of port 1 address 

аггау+1 = Low byte of port 1 address 

array+2 = Value to store in port l address 

arrayt3 - High byte of port 2 address 

аггау+4 = Low byte of port 2 address 

аггау+5 = Value to store in port 2 address 
Exit: None 


Registers used: All 


Time: l6 cycles overhead plus 

52 cycles per port to initialize 
Size: Program 40 bytes 

Data 2 bytes in page zero 


; PAGE ZERO POINTERS 


ARYADR 
PRTADR 


IPORTS: 


LOOP: 


. EQU орон ;ARRAY ADDRESS 
. EQU 0D2H ; PORT ADDRESS 


;SAVE STARTING ADDRESS OF INITIALIZATION ARRAY 
STA ARYADR+1 


STY ARYADR 

;EXIT IF THE NUMBER OF PORTS IS ZERO 

TXA ;SET FLAGS 

BEQ EXITIP ;EXIT IF NUMBER OF PORTS = 0 


;LOOP PICKING UP THE PORT ADDRESS AND 
; SENDING THE VALUE UNTIL ALL PORTS ARE INITIALIZED 


, 


;GET PORT ADDRESS FROM ARRAY AND SAVE IT 


LDY $0 

LDA (ARYADR),Y ;GET LOW BYTE OF PORT ADDRESS 
STA PRTADR 

INY 

LDA (ARYADR) ,Y ;GET HIGH BYTE OF PORT ADDRESS 
STA PRTADR+1 


;GET THE INITIAL VALUE AND SEND IT TO THE PORT 


INY 
LDA (ARYADR) ,Y ? СЕТ INITIAL VALUE 


LDY #0 
STA (PRTADR) ,Y ;OUTPUT TO PORT 


че чо чо чо че “0 чо чо че че че чо чо me чо чо чо чо че чо че ча чо We чо 
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¿POINT TO THE NEXT ARRAY ELEMENT 


LDA ARYADR 
CLC 
ADC #3 ¿ADD 3 TO LOW BYTE OF THE ADDRESS 
STA ARYADR 
BCC LOOP1 
INC ARYADRt1 ; INCREMENT HIGH BYTE ТЕ A CARRY 
LOOP1: 
;DECREMENT NUMBER OF PORTS TO DO,EXIT WHEN ALL PORTS ARE INITIALIZED 
DEX | 
BNE LOOP 
EXITIP: 
RTS 
; ; 
; SAMPLE EXECUTION: ; 
Н Н 
H 
;INITIALIZE 
; 6520 PIA 
: 6522 VIA 
: 6530 ROM/RAM/IO/TIMER 
; 6532 RAM/IO/TIMER 
H 6850 SERIAL INTERFACE (АСТА) 
$ 6551 SERIAL INTERFACE(ACIA) 
SC1007: 
LDA ADRARY+1 
LDY ADRARY 
LDX SZARY 
JSR IPORTS sINITIALIZE THE PORTS 
BRK 
ARRAY: 


; INITIALIZE 6520, ASSUME BASE ADDRESS FOR REGISTERS AT 2000H 


; PORT A = INPUT 
; CAl = DATA AVAILABLE, SET ON LOW TO HIGH TRANSITION, NO INTERRUPTS 
; CA2 = DATA ACKNOWLEDGE HANDSHAKE 
. WORD 2001H 36520 CONTROL REGISTER A ADDRESS 
. BYTE 00000000B ? INDICATE NEXT ACCESS TO DATA DIRECTION 
; REGISTER (SAME ADDRESS AS DATA REGISTER) 
. WORD 2000H 76520 DATA REGISTER A ADDRESS 
. BYTE 00000000B АШ BITS = INPUT 
. WORD 2001H :6520 CONTROL REGISTER A ADDRESS 
. BYTE 00100110B ;SET UP СА1,СА2 AND SET BIT 2 TO DATA REGISTER 


PORT B = OUTPUT 


CBl = DATA ACKNOWLEDGE, SET ON HIGH TO LOW TRANSITION, NO INTERRUPTS 
CB2 = DATA AVAILABLE, CLEARED BY WRITING DATA REGISTER B 


SET TO 1 BY HIGH TO LOW TRANSITION ON СВ1 


чө чо че ao 
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. WORD 2003H 76520 CONTROL REGISTER B ADDRESS 
. BYTE 00000000B ;INDICATE NEXT ACCESS TO DATA DIRECTION 
; REGISTER 
. WORD 2002H 76520 DATA REGISTER B ADDRESS 
. BYTE 11111111B ;ALL BITS - OUTPUT 
. WORD 2003H 76520 CONTROL REGISTER B ADDRESS 
. BYTE 00100100B ;SET UP. CB1,CB2 AND SET BIT 2 TO DATA REGISTER 


;INITIALIZE 6522, ASSUME BASE ADDRESS FOR REGISTERS AT 2010H 
PORT A = BITS 0..3 = OUTPUT, BITS 4..7 = INPUT 
CAl, CA2 ARE NOT USED. 
PORT B = LATCHED INPUT 
CBl = DATA AVAILABLE, SET ON LOW TO HIGH TRANSITION 


чо wo че че че ч 


CB2 DATA ACKNOWLEDGE HANDSHAKE 

. WORD 2013H :6522 DATA DIRECTION REGISTER А 

‚ BYTE 00001111B ;BITS 0..3 - OUTPUT, 4..7 - INPUT 
. WORD 2012H 76522 DATA DIRECTION REGISTER B 

. BYTE 00000000B ;ALL BITS = INPUT 

. WORD 201CH 36522 PERIPHERAL CONTROL REGISTER 
. BYTE 10010000B ;SET UP CBl, CB2 

‚ WORD 201BH 76522 AUXILIARY CONTROL REGISTER 
. BYTE 00000010B ;MAKE PORT B LATCH THE INPUT DATA 


;INITIALIZE 6530, ASSUME BASE ADDRESS FOR REGISTERS AT 2020H 
; PORT A - OUTPUT 
; PORT B = INPUT 


. WORD 2021H 76530 DATA DIRECTION REGISTER А 
. BYTE 11111111B ;ALL BITS = OUTPUT 

. WORD 202 3H 76530 DATA DIRECTION REGISTER B 
. BYTE 00000000B ;ALL BITS = INPUT 


;INITIALIZE 6532, ASSUME BASE ADDRESS FOR REGISTERS AT 2030H 
PORT A = BITS 0..6 = OUTPUT 

BIT 7 = INPUT FOR PORT B DATA AVAILABLE. 
PORT B = INPUT 


me че чо 


. WORD 2031H ;6532 DATA DIRECTION REGISTER A 

. BYTE 01111111B ;BITS 0..6 = OUTPUT, BIT 7 = INPUT 
. WORD 2033H 36532 DATA DIRECTION REGISTER В 

. BYTE 00000000B ;ALL BITS = INPUT 


INITIALIZE 6551, ASSUME BASE ADDRESS FOR REGISTERS АТ 2040H 
8 BIT DATA, NO PARITY 

1 STOP BIT 

9600 BAUD FROM ON BOARD BAUD RATE GENERATOR 

NO INTERRUPTS 


€ че чо чо чо 


= 


. WORD 2041H ¿WRITE ТО 6551 STATUS REGISTER TO RESET 

. BYTE 0 ;THIS VALUE COULD BE ANYTHING 

. WORD 2042H ;6551 CONTROL REGISTER 

. BYTE 10011110B ;l STOP, 8 BIT DATA, INTERNAL 9600 BAUD 

. WORD 2043H ;6551 COMMAND REGISTER 

. BYTE 00000011B МО PARITY, NO ECHO, NO RECEIVER INTERRUPT, 
| ;DTR LOW | 


:INITIALIZE 6850, ASSUME BASE ADDRESS FOR REGISTERS АТ 2050H 
; 8 BIT DATA, NO PARITY 


ENDARY: 
ADRARY: 
SZARY: 
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1 STOP BIT 


NO INTERRUPTS 


; DIVIDE MASTER CLOCK BY 1 
Н 


. WORD 
. BYTE 
. WORD 
. BYTE 


. WORD 
. BYTE 


. END 


2050H ;WRITE TO 6850 CONTROL REGISTER 
00000011B ; PERFORM A MASTER RESET 

2050H ; 6850 CONTROL REGISTER 
00010101B ;NO INTERRUPTS, RTS LOW, 


;8 BITS, 1 STOP, DIVIDE BY 1 


;END OF ARRAY 


ARRAY ;ADDRESS OF ARRAY 
(ENDARY - ARRAY) / 3 ;NUMBER OF PORTS TO INITIALIZE 
; PROGRAM 


Delay Milliseconds (DELAY) 


10H 


Provides a delay of between 1 and 255 
milliseconds, depending on the parameter 
supplied. The user must calculate the value 
MSCNT to fit a particular computer. 


MSCENT = (100/CYCLETIME — 10)/5 
= 200/CYCLETIME — 2 


CYCLETIME is the number of micro- 
seconds per clock period for a particular com- 
puter (1 for KIM-1, SYM-1, and AIM-65, 
0.9799269 for APPLE ПМ). 

Procedure: The program simply counts 
down the index registers for the appropriate 
amount of time as determined by the user- 


Entry Conditions 


(Y) = Number of milliseconds to delay 


Registers Used: X, Y, P 


Execution Time: 1 millisecond * (Y). If (Y) = 0, 
the minimum time is 17 cycles including a JSR 
instruction. 


Program Size: 156 bytes 


Data Memory Required: None 


Special Case: (Y) = 0 causes an exit with a 
minimum execution time of 17 cycles including a 
JSR instruction. (Y) — 0 and (X) is unchanged. 


supplied constant. A few extra NOPs take 
account of the call instruction, the return 
instruction, and the routine overhead. 


Exit Conditions 


Returns after the specified number of milli- 


(1to 255). seconds with (X) = (Y) = 0. 
Example 
Data: (Y) = number of milliseconds = 2А |, = 4210 
Result: Software delay of 2А |, (42,9) milliseconds, 
assuming that user supplies the proper value 
of MSCNT. 
=_=“ I 
; ; 
; Title Delay milliseconds ; 
; Name: Delay i 
: ; 
Purpose: Delay from 1 to 255 milliseconds ; 
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; MSCNT 


° =e 


t 
MSCNT 


DELAY: 


MSCNT 


EQUATES 


Entry: 


Exit: 


Registers 


Time: 


Size: 


used: 


10H DELAY MILLISECONDS (DELAY) 


Register Y = number of milliseconds to delay. 


Returns to calling routine after the 
specified delay. 


X,Y,P 
l millisecond * Register Y. 


If Y = 0 then the minimum time is 17 
cycles including the JSR overhead. 


Program 29 bytes 
Data NONE 


HERE IS THE FORMULA FOR COMPUTING THE DELAY COUNTS М5СМТІ AND MSCNT2. 


- 200/CYCLETIME - 2 WHERE CYCLE TIME IS THE LENGTH 
OF A PARTICULAR COMPUTER'S CLOCK PERIOD IN MICROSECONDS 


CO EN КӘ N о) N КЮ N Юю с 


EXAMPLES: KIM, SYM, AIM HAVE 1 MHz CLOCKS, SO MSCNT = 
APPLE HAS A 1.023 MHz CLOCK, SO MSCNT = 


CYCLES 
CYCLES 
CYCLES 
CYCLES 
CYCLES 
CYCLES 
CYCLES 
CYCLE 

CYCLES 
CYCLE 

CYCLES 


CYCLES 


l MHZ CLOCK 


. EQU 


0C 6H 


198, 
202. 


IN THE LAST ITERATION, WE REDUCE THE COUNT BY 3 (MSCNT) 
TO DELAY 1 MILLISECOND LESS THE OVERHEAD WHERE THE 
OVERHEAD IS: 


JSR 
CPY 
BEQ 
NOP 
CPY 
BNE 
DEY 
THE 
LDX 
THE 
RTS 


DELAY 
$0 
EXIT (ASSUMED NOT TAKEN) 


VVVVVV VV мм м 


#1 
DELAYA (ASSUMED TAKEN) 


LAST BNE DELAY1 NOT TAKEN 
#MSCNT2 
LAST BNE DELAY2 NOT TAKEN 


OVERHEAD 


198 TIMES THROUGH DELAY1 


APPLE (1.023 MHZ) 


. EQU 


CPY 
BEQ 
NOP 


#0 


OCAH 


EXIT 


;202 TIMES THROUGH DELAY1 


; 2 CYCLES 
; 2 CYCLES 
; 2 CYCLES 


(EXIT IF DELAY = 0) 
(TO MAKE OVERHEAD = 25 CYCLES) 
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DELAYA: 
DELAYO: 


ОЕГАҮ 1: 


LAST1: 


DELAY2: 


EXIT: 


че че RO че що 


5С1008: 


QTRSCD: 


;IF DELAY IS TO BE 1 MILLISECOND THEN GOTO LASTI 
; THIS LOGIC IS DESIGNED ТО BE 5 CYCLES THROUGH EITHER PATH 


CPY #1 : 2 CYCLES 

BNE DELAYA ; 3 CYCLES (IF TAKEN ELSE 2 CYCLES) 
JMP LAST1 ; 3 CYCLES 

¿DELAY 1 MILLISECOND TIMES (Y-1) 

DEY ; 2 CYCLES (PREDECREMENT Y) 

LDX #MSCNT ; 2 CYCLES 

DEX ; 2 CYCLES 

BNE DELAYl ; 3 CYCLES 

NOP ; 2 CYCLES 

NOP : 2 CYCLES 

DEY ; 2 CYCLES 

BNE DELAYO ; 3 CYCLES 

¿DELAY THE LAST TIME 25 CYCLES LESS TO TAKE THE 

; CALL, RETURN, AND ROUTINE OVERHEAD INTO ACCOUNT 
LDX #MSCNT-3 ; 2 CYCLES 

DEX ; 2 CYCLES 

BNE DELAY2 ; 3 CYCLES 

RTS ; 6 CYCLES 


SAMPLE EXECUTION: 


DELAY 10 SECONDS 

; CALL DELAY 40 TIMES AT 250 MILLISECONDS EACH 
LDA #40 ;40 TIMES (28 HEX) 

STA COUNT 


e ao чо 


;DELAY 1/4 SECOND 


LDY #250 ;250 MILLISECONDS (FA HEX) 
JSR DELAY 

DEC COUNT 

BNE QTRSCD 

BRK ;STOP AFTER 10 SECONDS 


JMP SC1008 


me avo че че че 
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;DATA SECTION 
COUNT .ВүтЕ 0 


. END ; PROGRAM 


Unbuffered Interrupt-Driven Input/Output 


Using a 6850 ACIA (SINTIO) 


11A 


Performs interrupt-driven input and out- 
put using a 6850 ACIA and single-character 
input and output buffers. Consists of the 
following subroutines: 


1. INCH reads a character from the input 
buffer. 


2. INST determines whether there is a 
character available in the input buffer. 


3. OUTCH writes a character into the out- 
put buffer. 


4. OUTST determines whether the output 
buffer is full. 


5. INIT initializes the 6850 ACIA, the 
interrupt vectors, and the software flags 
(used to transfer data between the main pro- 
gram and the interrupt service routine). 


6. IOSRVC determines which interrupt 
occurred and provides the proper input or 
output service. In response to the input inter- 
rupt, it reads a character from the ACIA into 
the input buffer. In response to the output 
interrupt, it writes a character from the out- 
put buffer into the ACIA. 


Examples describe a 6850 ACIA on an 
Apple II serial I/O board in slot 1. 
Procedures: 


1. INCH waits for a character to become 
available, clears the Data Ready flag 
(RECDF), and loads the character into the 
accumulator. 


2. INST sets the Carry flag from the Data 
Ready flag (memory location RECDF). 

3. OUTCH waits for the character buffer 
to empty, places the character in the buffer, 
and sets the Character Available flag 
(TRNDF). 
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Registers Used: 
. INCH A Y 
. INST A 
. OUTCH A Y 
. OUTST A 
A 


. INIT 


Execution Time: 

1. INCH 33cycles if a character is available 

2. INST 12 cycles 

3. OUTCH 92 cycles if the output 
buffer is empty and the ACIA is ready to send 
data 

4. OUTST 12 cycles 

5. INIT 73 cycles 

6. IOSRVC 39 cycles to service an input 
interrupt, 59 cycles to service an output interrupt, 
24 cycles to determine interrupt is from another 
device 


Program Size: 168 bytes 


Data Memory Required: Six bytes anywhere in 
RAM. One byte for the received data (at address 
RECDAT), one byte for the receive data flag (at 
address RECDF), one byte for the transmit data 
(at address TRNDAT), one byte for the transmit 
data flag (at address TRNDF), and two bytes for 
the address of the next interrupt service routine 
(starting at address NEXTSR). 


4. OUTST sets the Carry flag from the 
Character Available flag (memory location 
TRNDF). 


5. INIT clears the software flags, sets up 
the interrupt vector, resets the ACIA (a 
master reset, since the ACIA has no reset 
input), and initializes the ACIA by placing 
the appropriate value in its control register 
(input interrupts enabled, output interrupts 
disabled). 


6. IOSRVC determines whether the inter- 
rupt was an input interrupt (bit 0 of the ACIA 
status register = 1), an output interrupt (bit 
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1 of the ACIA status register = 1), or the 
product of some other device. If the input 
interrupt occurred, the program reads the 
data, saves it in memory, and sets the Data 
Ready flag (RECDF). If the output interrupt 
occurred, the program determines whether 
data is available. If not, the program simply 
_ disables the output interrupt. If data is availa- 
ble, the program sends it to the ACIA, clears 
the Character Available flag (TRNDF), and 
enables both the input and the output inter- 
rupts. 


The only special problem in using these 
routines is that an output interrupt may occur 
when no data is available. We cannot ignore 
the interrupt or it will assert itself 
indefinitely, creating an endless loop. The 
solution is to disable output interrupts. But 
now we create a new problem when data is 
ready to be sent. That is, if we have disabled 
output interrupts, the system cannot learn 
from an interrupt that the ACIA is ready to 
transmit. The solution to this is to create an 
additional, non-interrupt-driven entry to the 
routine that sends a character to the ACIA. 
Since this entry is not caused by an interrupt, 
we must check the ACIA to see that its out- 
put register is actually empty before sending 
it a character. 

The special sequence of operations is the 
following: 


1. Output interrupt occurs before new 


data is available (that is, the ACIA becomes 
ready for data). The response is to disable the 
output interrupt, since there is no data to be 
sent. Note that this sequence will not occur 
initially, since INIT disables the output inter- 
rupt. Otherwise, the output interrupt would 
occur immediately, since the ACIA surely 
starts out empty and therefore ready to 
transmit data. 


2. Output data becomes available. That is, 
the system now has data to transmit. But 
there is no use sitting back and waiting for the 
output interrupt, since it has been disabled. 


3. The main program calls the routine 
(OUTDAT) that sends data to the ACIA. 
Checking the ACIA’s status shows that it is, 
in fact, ready to transmit a character (it told 
us it was when the output interrupt occur- 
red). The routine then sends the character 
and reenables the interrupts. 


The basic problem here is that output 
devices may request service before the com- 
puter is ready for them. That is, the devices 
can accept data but the computer has nothing 
to send. In particular, we have an initializa- 
tion problem caused by output interrupts 
asserting themselves and expecting service. 
Input devices, on the other hand, request 
service only when they have data. They start 
out in the not ready state; that is, an input 
device has no data to send initially, while the 
computer is ready to accept data. Thus output 
devices cause more initialization and 
sequencing problems in interrupt-driven 
systems than do input devices. 

Our solution may, however, result in an 
odd situation. Let us assume that the system 
has some data ready for output but the ACIA 
is not yet ready for it. Then the system must 
wait with interrupts disabled for the ACIA to 
become ready; that is, an interrupt-driven 
system must disable its interrupts and wait - 
idly, polling the output device. We could 
eliminate this drawback by keeping a soft- 
ware flag that would be changed when the 
Output interrupt occurred at a time when 
there was no data. Then the system could 
check the software flag and determine 
whether the output interrupt had already 
occurred. (See Subroutine 11C.) 
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Entry Conditions Exit Conditions 
1. INCH: none 1. INCH: character in accumulator 
2. INST: none 2. INST: Carry flag = 0 if no character 
3. OUTCH: character to transmit in is available, 1 is a character is available 
accumulator 3. OUTCH: none 
4. OUTST: none 4. OUTST: Carry flag = 0 if output 
5. INIT: none buffer is empty, 1 if it is full. 
A Title Simple interrupt input and output using a 6850 ; 
; АСТА and a single character buffer. ; 
; Name: SINTIO | 
Purpose: This program consists of 5 subroutines which 


perform interrupt driven input and output using 
a 6850 ACIA. 


INCH 
Read a character. 
INST 
Determine input status (whether the input 
buffer is empty). 
OUTCH 
Write a character. 
OUTST 
Determine output status (whether the output 
buffer is full). 
INIT 
Initialize. 


Entry: INCH 
No parameters. 
INST 
No parameters. 
OUTCH 
Register A = character to transmit 
OUTST 
No parameters. 
INIT 
No parameters. 


Exit: INCH 
Register A = character. 
INST 
Carry flag equals 0 if input buffer is empty, 
l if character is available. 
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;EXAMPLE 6850 ACIA PORT DEFINITIONS FOR AN APPLE SERIAL BOARD IN SLOT 1 
ACIASR 
ACIADR 
ACIACR 
IRQVEC 


;READ A 


INCH: 


Registers used: 


Time: 


Size: 


. EQU 0C094H 
. EQU ОСО95Н 
. EQU 0C094H 
. EQU 03FEH 
CHARACTER 

JSR INST 
BCC INCH 
PHP 

SEI 

LDA #0 

STA RECDF 
LDA RECDAT 
PLP 
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OUTCH 
No parameters 2 
OUTST 
Carry flag equals 0 if output buffer is 
empty, 1 if it is full. 
INIT 
No parameters. 


INCH 
A,F,Y 
INST 
A,F 
OUTCH 
A,F,Y 
OUTST 
A,F 
INIT 
A,F 


INCH 
33 cycles if a character is available 
INST 
12 cycles 
OUTCH 
92 cycles if the output buffer is empty and 
the ACIA is ready to transmit 
OUTST 
12 cycles 
INIT 
73 cycles 
IOSRVC 
24 cycles 
39 cycles 
59 cycles 


to service a input interrupt 
to service a output interrupt 


Program 168 bytes 
Data 6 bytes 


;ACIA STATUS REGISTER 
;ACIA DATA REGISTER 

;ACIA CONTROL REGISTER 
;APPLE IRQ VECTOR ADDRESS 


;GET INPUT STATUS 
;WAIT IF CHARACTER IS NOT AVAILABLE 


¿SAVE CURRENT STATE OF INTERRUPT SYSTEM 


;DISABLE INTERRUPTS 


; INDICATE BUFFER IS NOW EMPTY 
;GET THE CHARACTER FROM THE BUFFER 
;RESTORE FLAGS 


minimum if the interrupt is not ours 
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RTS 
;RETURN INPUT STATUS (CARRY = 1 IF DATA IS AVAILABLE) 
INST: 
LDA RECDF ;GET THE DATA READY FLAG 
LSR A SET CARRY FROM FLAG 
: CARRY = 1 IF CHARACTER IS AVAILABLE 
RTS 
sWRITE A CHARACTER 
OUTCH: 
PHP ¿SAVE STATE OF INTERRUPT FLAG 
PHA :SAVE CHARACTER TO OUTPUT 
‚МАТТ FOR THE CHARACTER BUFFER TO EMPTY, THEN STORE THE NEXT CHARACTER 
WAITOC: 
JSR OUTST ;GET THE OUTPUT STATUS 
BCS WAITOC :WAIT IF THE OUTPUT BUFFER IS FULL 
SEI :DISABLE INTERRUPTS WHILE LOOKING AT THE 
; SOFTWARE FLAGS 
PLA :GET THE CHARACTER 
STA TRNDAT ¿STORE THE CHARACTER 
LDA %0ҒЕН :INDICATE CHARACTER AVAILABLE (BUFFER FULL) 
STA TRNDF 
JSR OUTDAT ;SEND THE DATA TO THE PORT 
PLP ;RESTORE FLAGS 
RTS 
sOUTPUT STATUS (CARRY = 1 IF BUFFER IS FULL) 
OUTST: 
LDA TRNDF ¿CARRY = 1 IF CHARACTER IS IN THE BUFFER 
LSR A 
RTS 
INITIALIZE 
INIT: 
PHP ¿SAVE CURRENT STATE OF FLAGS 
SEI ¿DISABLE INTERRUPTS DURING INITIALIZATION 
sINITIALIZE THE SOFTWARE FLAGS 
LDA #0 
STA RECDF :NO INPUT DATA AVAILABLE 
STA TRNDF ¿OUTPUT BUFFER EMPTY 
; SAVE THE CURRENT IRQ VECTOR IN NEXTSR 
LDA IRQVEC 
STA NEXTSR 
LDA IRQVEC+1 
STA NEXTSR+t+1 
‚СЕТ THE IRQ VECTOR TO OUR INPUT SERVICE ROUTINE 
LDA AIOS 
STA IRQVEC 
LDA AIOS+1 
STA ТКОУЕС+1 
;INITIALIZE THE 6850 
LDA $011B 
STA ACIACR ;MASTER RESET АСТА 
LDA $10010001B 


STA ACIACR ;INITIALIZE ACIA MODE TO 
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DIVIDE BY 16 

8 DATA BITS 

2 STOP BITS 

OUTPUT INTERRLPTS DISABLED (NOTE THIS) 
INPUT INTERRUPTS ENABLED 


me чо te чо <° 


PLP ;RESTORE CURRENT STATE OF THE FLAGS 

RTS 
AIOS: . WORD IOSRVC ;ADDRESS OF INPUT OUTPUT SERVICE ROUTINE 
;INPUT OUTPUT INTERRUPT SERVICE ROUTINE 
IOSRVC: 

PHA ? ЗАУЕ REGISTER А 

CLD ;BE SURE PROCESSOR IS IN BINARY MODE 


;GET THE ACIA STATUS: BIT 0 = 1 IF AN INPUT INTERRUPT 
;BIT 1 = 1 IF AN OUTPUT INTERRUPT 


IINT: 


OINT: 


LDA ACIASR 
LSR A ;BIT 0 TO CARRY 
BCS IINT ;BRANCH IF AN INPUT INTERRUPT 
LSR A ;BIT 1 TO CARRY 
BCS OINT ;BRANCH IF AN OUTPUT INTERRUPT 
;THE INTERRUPT WAS NOT CAUSED BY THIS ACIA 
PLA 
JMP (NEXTSR) ;GOTO THE NEXT SERVICE ROUTINE 
;SERVICE INPUT INTERRUPTS 
LDA ACIADR ;READ THE DATA 
STA RECDAT ;STORE IT AWAY 
LDA #0ЕЕН 
STA RECDF ;INDICATE WE HAVE A CHARACTER IN RECDAT 
JMP EXIT ;EXIT IOSRVC 
;SERVICE OUTPUT INTERRUPTS 
LDA TRNDF ;GET DATA AVAILABLE FLAG 
BEQ NODATA ;BRANCH IF NO DATA TO SEND 
JSR OUTDT1 ELSE OUTPUT THE DATA, 


, 


me че чо чо ч9 чо че че че че чо 
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(WE DO NOT NEED TO TEST THE STATUS) 
JMP EXIT 


IF AN OUTPUT INTERRUPT OCCURS WHEN NO DATA IS AVAILABLE, 


WE MUST DISABLE THE INTERRUPT TO AVOID AN ENDLESS LOOP. 

LATER WHEN A CHARACTER BECOMES AVAILABLE, WE CALL THE 

OUTPUT ROUTINE, OUTDAT, WHICH MUST TEST ACIA STATUS BEFORE 
SENDING THE DATA. THE OUTPUT ROUTINE MUST ALSO REENABLE THE OUTPUT 
INTERRUPT AFTER SENDING THE DATA. THIS PROCEDURE OVERCOMES THE 
PROBLEMS OF AN UNSERVICED OUTPUT INTERRUPT ASSERTING ITSELF 
REPEATEDLY, WHILE STILL ENSURING THAT OUTPUT INTERRUPTS ARE 
RECOGNIZED AND THAT DATA IS NEVER SENT TO AN ACIA THAT IS 

NOT READY FOR IT. THE BASIC PROBLEM HERE IS THAT AN OUTPUT 
DEVICE MAY REQUEST SERVICE BEFORE THE COMPUTER HAS 

ANYTHING TO SEND (WHEREAS AN INPUT DEVICE HAS DATA WHEN ' IT 
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; REQUESTS SERVICE) 


NODATA: | 
LDA #10010001B ;DISABLE OUTPUT INTERRUPTS, ENABLE INPUT 
; INTERRUPTS, 8 DATA BITS, 2 STOP BITS, “DIVIDE 
; BY 16 CLOCK 
STA ACIACR ;TURN OFF OUTPUT INTERRUPTS 
EXIT: 
PLA ;RESTORE REGISTER A 
RTI ;RETURN FROM INTERRUPT 


s š k k k e k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k R K 


;ROUTINE: OUTDAT, OUTDT1 (OUTDAT IS NON-INTERRUPT DRIVEN ENTRY POINT) 
; PURPOSE: SEND A CHARACTER TO THE ACIA 

;ENTRY: TRNDAT = CHARACTER TO SEND 

;EXIT: NONE 


;REGISTERS USED: A,F 
2 k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k K k K 


;NON-INTERRUPT ENTRY. MUST CHECK IF ACIA IS READY OR WAIT FOR IT 
OUTDAT: 


LDA ACIASR ;CAME HERE WITH INTERRUPTS DISABLED 
AND #00000010B ;TEST THE АСТА OUTPUT REGISTER FOR EMPTY 
BEQ OUTDAT ;BRANCH IF IT IS NOT EMPTY 
OUTDT1: LDA TRNDAT ;GET THE CHARACTER 
STA ACIADR ;OUTPUT DATA 
LDA #0 i 
STA TRNDF ;INDICATE BUFFER EMPTY 
LDA $10110001B 
STA ACIACR ;ENABLE 6850 OUTPUT AND INPUT INTERRUPTS, 


8 DATA BITS, 2 STOP BITS, DIVIDE BY 16 CLOCK 


чо 


RTS 


;DATA SECTION 

RECDAT .BLOCK 
RECDF .BLOCK 
TRNDAT .BLOCK 
TRNDF .ВҺОСК 


;RECEIVE DATA 
;RECEIVE DATA FLAG (0 = NO DATA, FF = DATA) 
; TRANSMIT DATA 
тне DATA FLAG (0 BUFFER EMPTY, 
FF BUFFER FULL) 
; ADDRESS OF THE NEXT INTERRUPT SERVICE ROUTINE 


м ынны 


NEXTSR .BLOCK 


SAMPLE EXECUTION: 


че чо че «чо чо 
че че че че чо 


SC1101: 
JSR INIT ;INITIALIZE 
CLI ;ENABLE INTERRUPTS 


LOOP: 


ASYNLP: 


DONE: 
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;SIMPLE EXAMPLE 


JSR INCH ;READ A CHARACTER 

PHA 

JSR OUTCH ;ECHO IT 

PLA 

CMP #1BH ;IS IT AN ESCAPE CHARACTER ? 
BNE LOOP ¿STAY IN LOOP IF NOT 

BRK 


;AN ASYNCHRONOUS EXAMPLE | | 
OUTPUT "A" TO THE CONSOLE CONTINUOUSLY BUT ALSO LOOK AT THE 
INPUT SIDE, READING AND ECHOING ANY INPUT CHARACTERS. 


me «we 


;OUTPUT AN "A" IF OUTPUT IS NOT BUSY 


JSR OUTST :15 OUTPUT BUSY ? 

BCS ASYNLP ¿BRANCH IF IT IS 

LDA $"A" 

JSR OUTCH ;OUTPUT THE CHARACTER 

;GET A CHARACTER FROM THE INPUT PORT IF ANY 

JSR INST ;IS INPUT DATA AVAILABLE ? 
BCC ASYNLP ;BRANCH IF NOT (SEND ANOTHER "A") 
JSR INCH ;GET THE CHARACTER 

CMP $1BH 71S IT AN ESCAPE CHARACTER ? 
BEQ DONE ;BRANCH IF IT IS 

JSR OUTCH ;ELSE ECHO IT 

JMP ASYNLP ;AND CONTINUE 

BRK 

JMP 5С1101 


. END ; PROGRAM 
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Using a 6522 VIA (PINTIO) 


11B 


Performs interrupt-driven input and out- 
put using a 6522 VIA and single-character 
input and output buffers. Consists of the 
following subroutines: 


1. INCH reads a character from the input 
buffer. 


2. INST determines whether there is a 
character available in the input buffer. 


3. OUTCH writes a character into the out- 
put buffer. 


4. OUTST determines whether the output 
buffer is full. 


5. INIT initializes the 6522 VIA, 
interrupt vectors, and the software flags. 


6. IOSRVC determines which interrupt 
occurred and provides the proper input or 
output service (i.e., it reads a character from 
the VIA into the input buffer in response to 
the input interrupt and it writes a character 
from the output buffer into the VIA in 
response to the output interrupt). 


Examples describe a 6522 VIA attached to 
an Apple II computer. 


Procedure: 


1. INCH waits for a character to be availa- 
ble in the input buffer, clears the Data Ready 
flag (RECDF), and loads the character from 
the buffer into the accumulator. 


2. INST sets the Carry flag from the Data 
Ready flag (memory location RECDF). 


3. OUTCH waits for the output buffer to 
be emptied, places the character (from the 
accumulator) in the buffer, and sets the 
character available (buffer full) flag 
(TRNDF). If an unserviced output interrupt 
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the. 


Registers Used: 
1. INCH: 
2. INST: 
3. OUTCH: 
4. INIT 


Execution Time: 

1. INCH: 
available 

2. INST: 12 cycles 

3. OUTCH: 83 cycles if the output buffer is 
empty and the VIA is ready for data 

4. OUTST: 12 cycles 

5. INIT: 93 cycles 

6. IOSRVC: 43 cycles to service an input 
interrupt, 81 cycles to service an output interrupt, 


24 cycles to determine that interrupt is from 
another device 


33 cycles if a character is 


Program Size: 194 bytes 


Data Memory Required: Seven bytes anywhere 
in RAM. One byte for the received data (at 
address RECDAT), one byte for the Receive 
Data flag (at address RECDF), one byte for the 
transmit data (at address TRNDAT), one byte 
for the Transmit Data flag (at address TRNDF), 
one byte for the Output Interrupt flag (at address 
OIE), and two bytes for the address of the next 
interrupt service routine (starting at address 
NEXTSR). 


has occurred (i.e., the output device has 
requested service when no data was availa- 
ble), OUTCH actually sends the data to the 
VIA. 


4. OUTST sets the Carry flag from the 
Character Available flag (memory location 
TRNDF). 


5. INIT clears the software flags, sets up 
the interrupt vector, and initializes the 6522 
VIA. It makes port A an input port, port B an 
output port, control lines CA1 and СВІ 
active low-to-high, control line CA2 a brief 
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output pulse indicating input acknowledge 
(active-low after the CPU reads the data), 
and control line CB2 a write strobe (active- 
low after the CPU writes the data and lasting 
until the peripheral becomes ready again). 
INIT also enables the input interrupt on CAI 
and the output interrupt on CB1. 


6. IOSRVC determines whether the inter- 
rupt was an input interrupt (bit 1 of the VIA 
interrupt flag register — 1), an output inter- 
rupt (bit 4 of the VIA interrupt flag register 
= 1), or the product of some other device. If 
the input interrupt occurred, the program 
reads the data, saves it in the input buffer, 
and sets the Data Ready flag (RECDF). If the 
output interrupt occurred, the program 
determines whether any data is available. If 
not, the program simply clears the interrupt 
and clears the flag (OIE) that indicates the 
output device is actually ready (that is, an 
output interrupt has occurred at a time when 
no data was available). If data is available, the 
program sends it from the output buffer to 
the VIA, clears the Character Available flag 
(TRNDF), sets the Output Interrupt flag 
(OIE), and enables both the input and the 
output interrupts. 


The only special problem in using these 
routines is that an output interrupt may occur 
when no data is available to send. We cannot 


ignore the interrupt or it will assert itself 
indefinitely, creating an endless loop. The 
solution is to simply clear the interrupt by 
reading the data register in port B. But now 
we create a new problem when the main pro- 
gram has data ready to be sent. The interrupt 
indicating that the output device is ready has 
already occurred (and been cleared), so there 
is no use waiting for it. The solution is to es- 
tablish an extra flag that indicates (with a 0) 
that the output interrupt has occurred with- 
out being serviced. We call this flag OIE, the 
Output Interrupt flag. The initialization 
routine sets it initially (since the output 
device has not requested service), and the 
output service routine clears it when an out- 
put interrupt occurs that cannot be serviced 
(no data is available) and sets it after sending 
data to the VIA (in case it might have been 
cleared). Now the output routine OUTCH 
can check OIE to determine whether the out- 
put interrupt has already occurred (a 0 value 
indicates it has, FF hex that it has not). 
Note that we can clear a VIA interrupt 
without actually sending any data. We cannot 
do this with a 6850 ACIA (see Subroutines 
11A and 11C), so the procedures there are 
somewhat different. This problem of unser- 
viced interrupts occurs only with output 
devices, since input devices request service 
only when they have data ready to transfer. 
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Entry Conditions Exit Conditions 
1. INCH: none 1. INCH: character in accumulator 
2. INST: none 2. INST: Carry flag = 0 if no character 
3. OUTCH: character to transmit in is available, 1 if a character is available 
accumulator 3. OUTCH: none 
4. OUTST: none 4. OUTST: Carry flag = 0 if output 
5. INIT: none buffer is empty, 1 if it is full. 


5. INIT: none 


; Title Simple interrupt input and output using a 6522 ; 
? VIA and a single character' buffer. ; 
; Мапе: РІМТІО ; 
; ; 
; ; 
Purpose: This program consists of 5 subroutines which 

perform interrupt driven input and output using 

a 6522 VIA. 

INCH 

Read a character. 
INST 


Determine input status (whether the input 
buffer is empty). 

OUTCH 
Write a character. 

OUTST 
Determine output status (whether the output 
buffer is full). 

INIT 
Initialize. 


Entry: INCH 
No parameters. 
INST 
No parameters. 
OUTCH 
Register A - character to transmit 
OUTST 
No parameters. 
INIT 
No parameters. 


Exit: INCH 
Register A = character. 
INST 


чо чо ча TO TO чо че WE We ша 99 WH «e WE no WE ча 99 чо WO зо че VO VSO ao WE We че We WO че че 
че e Be TO чо че че TO BE че че WO WE “60 че WS Го WE че че WE WO че WO че WS чо "30 че че че WE 


оо Ге. BRO BE WH WO BE BO WE ча WE 9 WE BO че BE BSH WE чо WH "6 WH WH WH WE WE чо WE WO me зе BO Be BO BRO WO WE no WO WE WE 


Registers used: 


Time: 


Size: 
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Carry flag equals 0 if input buffer is empty, 
l if character is available. 

OUTCH 
No parameters 

OUTST 
Carry flag equals 0 if output buffer is 
empty, 1 if it is full. 

INIT 
No parameters. 


INCH 
33 cycles if a character is available 
INST 
12 cycles 
OUTCH 
83 cycles if the output buffer is empty and 
the VIA is ready to transmit 
OUTST 
12 cycles 
INIT 
93 cycles 
IOSRVC 
24 cycles minimum if the interrupt is not ours 


43 cycles to service a input interrupt 
81 cycles to service a output interrupt 
Program 194 bytes 
Data 7 bytes 


= 
me чо че ча че че чо че wo WH чо че %Г 0 WH чо че оо чо чо ча че чо BO че 99 чо Чо TO We че ч9 WOH чо WH WE че WH че чо =e 


;EXAMPLE 6522 VIA PORT DEFINITIONS 


VIA 

VIABDR 
VIAADR 
VIABDD 
VIAADD 
VIAACR 
VIAPCR 
VIAIFR 
VIAIER 


IRQVEC 


; READ А 


. EQU 0C090H 
.Е00 VIA . 

. EQU УТА+1 

. EQU УТА+2 

. EQU VIA+3 

. EQU УТА+11 
. EQU УТА+1 2 
. EQU VIA+13 
. EQU УТА+1 4 
. EQU 03FEH 

CHARACTER 


; VIA BASE ADDRESS 

? VIA PORT В DATA REGISTER 

? VIA PORT А DATA REGISTER, WITH HANDSHAKING 
;VIA PORT B DATA DIRECTION REGISTER 

;VIA PORT A DATA DIRECTION REGISTER 

; VIA AUXILIARY CONTROL REGISTER 

; VIA PERIPHERAL CONTROL REGISTER 

; VIA INTERRUPT FLAG REGISTER 

;VIA INTERRUPT ENABLE REGISTER 


;APPLE IRQ VECTOR ADDRESS 
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INCH: 


;RETURN INPUT STATUS (CARRY 


INST: 
LDA 
LSR 


RTS 


INST 
INCH 


RECDAT 
#0 
RECDF 
RECDAT 


RECDF 
A 


;WRITE A CHARACTER 


OUTCH: 
PHP 
PHA 


;WAIT FOR THE CHARACTER 


WAITOC: 
JSR 
BCS 
SEI 


PLA 
STA 
LDA 
STA 
LDA 


BNE 
JSR 
OUTCH1: PLP 
RTS 


OUTST 
WAITOC 


TRNDAT 
$0FFH 
TRNDF 
OIE 


ООТСН1 
OUTDAT 


;OUTPUT STATUS (CARRY 


OUTST: 
LDA 
LSR 
RTS 
; INITIALIZE 
INIT: 
PHP 
SEI 


; INITIALIZE 


TRNDF 
A 


;GET INPUT STATUS 

;WAIT IF CHARACTER IS NOT AVAILABLE 
;SAVE CURRENT STATE OF INTERRUPT SYSTEM 
;DISABLE INTERRUPTS 

;GET THE CHARACTER FROM THE BUFFER 


; INDICATE BUFFER IS NOW EMPTY 
;GET THE CHARACTER FROM THE BUFFER 
;RESTORE FLAGS 


IF DATA IS AVAILABLE) 


;GET THE DATA READY FLAG 
;SET CARRY FROM FLAG 
; CARRY = 1 IF CHARACTER IS AVAILABLE 


;SAVE STATE OF INTERRUPT FLAG 
;SAVE CHARACTER TO OUTPUT 


BUFFER TO EMPTY, THEN STORE THE NEXT CHARACTER 


;GET THE OUTPUT STATUS 

;WAIT IF THE OUTPUT BUFFER IS FULL 

;DISABLE INTERRUPTS WHILE LOOKING AT THE 

; SOFTWARE FLAGS 

;GET THE CHARACTER 

;STORE THE CHARACTER 

;INDICATE CHARACTER AVAILABLE (BUFFER FULL) 


;HAS THE OUTPUT DEVICE ALREADY REQUESTED 
; SERVICE? 

; NO, BRANCH AND WAIT FOR AN INTERRUPT 

; XES, SEND THE DATA TO THE PORT NOW 
;RESTORE FLAGS 


1 IF BUFFER IS FULL) 


;CARRY = 1 IF CHARACTER IS IN THE BUFFER 


;SAVE CURRENT STATE OF FLAGS 
;DISABLE INTERRUPTS 


THE SOFTWARE FLAGS 


AIOS: 


;INPUT OUTPUT INTERRUPT SERVICE 


IOSRVC: 
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;NO INPUT DATA AVAILABLE 
;OUTPUT BUFFER EMPTY 
;OUTPUT DEVICE HAS NOT REQUESTED SERVICE 


;SAVE THE CURRENT IRQ VECTOR IN NEXTSR 


;SET THE IRQ VECTOR TO OUR INPUT SERVICE ROUTINE 


LDA $0 

STA RECDF 

STA TRNDF 

LDA $0FFH 

STA OIE 

LDA IRQVEC 

STA NEXTSR 

LDA IRQVEC+1 
STA NEXTSR+1 
LDA AIOS 

STA IRQVEC 

LDA AIOS+1 

STA IRQVEC +1 
;INITIALIZE THE 6522 VIA 
LDA . $00000000B 
STA VIAADD 

LDA $11111111B 
STA VIABDD 

LDA $10001010B 
STA VIAPCR 

LDA %00000001В 
5ТА VIAACR 
LDA #00010010B 
STA VIAIER 

PLP 

RTS 

‚ WORD IOSRVC 


PHA 
CLD 


¿SET PORT А TO INPUT 
¿SET PORT В TO OUTPUT 


;SET PORT A TO | 
INTERRUPT ON A LOW TO HIGH OF СА1 (BIT 0 = 1) 
OUTPUT A LOW PULSE ON CA2 (BITS 1..3 - 101) 

SET PORT B TO 
INTERRUPT ON A LOW TO HIGH OF CBl (BIT 4 = 1) 
HANDSHAKE OUTPUT MODE (BITS 5..7 - 001) 


Эс. че vo че we 


SET. AUXILIARY CONTROL TO ENABLE INPUT LATCHING 
FOR PORT A | 

SET INTERRUPT ENABLE REGISTER TO ALLOW 
INTERRUPTS ON СА1 (BIT 1) AND СВ1 (ВІТ 4) 


=e че че че чо 


;RESTORE CURRENT STATE OF THE FLAGS 


;ADDRESS OF INPUT OUTPUT SERVICE ROUTINE 
ROUTINE 


;SAVE REGISTER A 
;BE SURE PROCESSOR IS IN BINARY MODE 


;GET THE VIA STATUS: BIT 1 = 1 IF AN INPUT INTERRUPT 


;BIT 4 


LDA 
AND 
BNE 
LDA 
AND 
BNE 


VIAIFR 
#10B 
IINT 
VIAIFR 
$1000B 
OINT 


l IF AN OUTPUT 


INTERRUPT 


;TEST BIT 1 
? СОТО INPUT INTERRUPT ТЕ BIT 1 = 1 


;TEST BIT 4 
;GOTO OUTPUT INTERRUPT IF BIT 4 = 1 


478 interrupts 


;THE INTERRUPT WAS NOT CAUSED BY THIS VIA 


PLA 
JMP (NEXTSR) ;GOTO THE NEXT SERVICE ROUTINE 
;SERVICE INPUT INTERRUPTS 
IINT: 
LDA VIAADR ;READ THE DATA 
; (WHICH PULSES CA2 FOR THE HANDSHAKE AND 
; CLEARS THE INTERRUPT FLAG) 
STA RECDAT ¿STORE DATA 
LDA $0FFH 
STA RECDF ;INDICATE WE HAVE A CHARACTER IN RECDAT 
JMP EXIT ;EXIT IOSRVC 


;SERVICE OUTPUT INTERRUPTS | 

;NOTE THAT WE CAN CLEAR A 6522 INTERRUPT BY READING THE DATA 
REGISTER. THUS WE CAN CLEAR AN OUTPUT INTERRUPT WITHOUT 
SERVICING IT OR DISABLING IT. HOWEVER, IF WE DO THIS, WE 

MUST HAVE A FLAG (OIE) THAT INDICATES THE OUTPUT INTERRUPT 

HAS OCCURRED BUT HAS NOT BEEN SERVICED. OUTCH CAN THEN USE 

THE OIE FLAG TO DETERMINE WHETHER TO SEND THE DATA IMMEDIATELY 
OR WAIT FOR AN OUTPUT INTERRUPT TO SEND IT. 


© че wo че че че че 


INT: 
LDA TRNDF ;GET DATA AVAILABLE FLAG 
BNE NODATA ;BRANCH IF THERE IS NO DATA TO SEND 
JSR OUTDAT ; ELSE OUTPUT THE DATA 
JMP EXIT 

NODATA: 
LDA VIABDR ¿READ THE PORT В DATA REGISTER TO CLEAR THE 

; INTERRUPT. 

LDA $0 ;INDICATE OUTPUT INTERRUPT HAS OCCURRED 
STA OIE ; BUT HAS NOT BEEN SERVICED 

EXIT: 
PLA sRESTORE REGISTER A 
RTI ;RETURN FROM INTERRUPT 


; k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k 


; ROUTINE: OUTDAT 

;PURPOSE: SEND A CHARACTER TO THE VIA 
;ENTRY: TRNDAT = CHARACTER TO SEND 
;EXIT: NONE 


;REGISTERS USED: A,F 
; k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k K 


OUTDAT: 
LDA TRNDAT | ;GET THE CHARACTER 
STA VIABDR ;OUTPUT DATA TO PORT B 
LDA #0 
STA TRNDF ;INDICATE BUFFER EMPTY 
LDA #ОРЕН | 
STA OIE ;INDICATE NO UNSERVICED OUTPUT INTERRUPT 
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;DATA SECTION 

RECDAT .BLOCK 
RECDF . BLOCK 
TRNDAT .BLOCK 
TRNDF . BLOCK 


;RECEIVE DATA 

;RECEIVE DATA FLAG (0 = NO DATA, FF = DATA) 
;TRANSMIT DATA 
;TRANSMIT DATA FLAG (0 
; FF 
¿OUTPUT INTERRUPT FLAG 
; (0 = INTERRUPT OCCURRED WITHOUT SERVICE 

; FF = INTERRUPT SERVICED) 

;ADDRESS OF THE NEXT INTERRUPT SERVICE ROUTINE 


BUFFER EMPTY 
BUFFER FULL) 


e Кн 


OIE . BLOCK 


NEXTSR .BLOCK 2 


SAMPLE EXECUTION: 


ео чо че че че 
че че че че „че 


SC1102: 
JSR INIT ;INITIALIZE | 
CLI ;ENABLE INTERRUPTS 
¿SIMPLE EXAMPLE 
LOOP: 
JSR INCH ;READ A CHARACTER 
PHA 
JSR OUTCH ;ECHO IT 
PLA 
CMP #1BH ;IS ІТ AN ESCAPE CHARACTER ? 
BNE LOOP ¿STAY IN LOOP IF NOT 
BRK | 
;AN ASYNCHRONOUS EXAMPLE 
; OUTPUT "A" TO THE CONSOLE CONTINUOUSLY BUT ALSO LOOK AT THE 
; INPUT SIDE, READING AND ECHOING ANY INPUT CHARACTERS. 
ASYNLP: 
;OUTPUT АМ "A" IF OUTPUT IS NOT BUSY 
JSR OUTST ;IS OUTPUT BUSY ? 
BCS ASYNLP ;BRANCH IF IT IS 
LDA $"A" | 
JSR OUTCH ;OUTPUT THE CHARACTER 
;GET A CHARACTER FROM THE INPUT PORT IF ANY 
JSR INST ¿IS INPUT DATA AVAILABLE ? 
BCC ASYNLP ;BRANCH IF NOT (SEND ANOTHER "A") 
JSR INCH ;GET THE CHARACTER 
CMP #1BH ;IS ІТ AN ESCAPE CHARACTER ? 
BEQ DONE ;BRANCH IF IT IS 
JSR OUTCH ¿ELSE ECHO ІТ 
JMP ASYNLP ;AND CONTINUE 
DONE: 
BRK 
JMP 5С1102 


. END ; PROGRAM 


a 


Buffered Interrupt-Driven Input/Output 


Using a 6850 ACIA (SINTB) 


Performs interrupt-driven input and out- 
put using a 6850 ACIA and multiple- 
character buffers. Consists of the following 
subroutines: 


1. INCH reads a character from the input 
buffer. 


2. INST determines whether there are any 
characters in the input buffer. 


3. OUTCH writes a character into the out- 
put buffer. 


4. OUTST determines whether the output 
buffer is full. | 


5. INIT initializes the buffers and the 
6850 device. 


6. IOSRVC determines which interrupt 
occurred and provides the proper input or 
output service. 


Procedures: 


1. INCH waits for a character to become 
available, gets the character from the head of 
the input buffer, moves the head of the 
buffer up one position, and decreases the 
input buffer counter by 1. 


2. INST sets the Carry to 0 if the input 
buffer counter is zero and to 1 if the counter 
is non-zero. 


3. OUTCH waits until there is empty 
space in the output buffer (that is, until the 
output buffer is not full), stores the character 
at the tail of the output buffer, moves the tail 
of the buffer up one position, and increases 
the output buffer counter by 1. 


4. OUTST sets the Carry flag to 1 if the 
output buffer counter is equal to the buffer's 
length and to 0 if it is not. 
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Registers Used: 
. INCH: A, Е, Y 
. INST: A,F 
- OUTCHA, F, Y 
. OUTST:A, F 
. INIT: A,F 


Execution Time: 

1. INCH: 70 cycles if a character is available 

2. INST: 18 cycles 

3. OUTCH: 75 cycles minimum, 105 cycles 
maximum if the output buffer is not full and the 
ACIA is ready to transmit 

4. OUTST: 12 cycles 

5. INIT: 89 cycles 

6. IOSRVC: 73 cycles to service an input 
interrupt, 102 cycles to service an output inter- 
rupt, 27 cycles to determine the interrupt is from 
another device. 


Program Size: 258 bytes 


Data Memory Required: Seven bytes anywhere 
in RAM plus the input and output buffers. The 
seven bytes anywhere in RAM hold the input 
buffer counter (one byte at address ICNT), the 
index to the head of the input buffer (one byte at 
address IHEAD), the index to the tail of the 
input buffer (one byte at address ITAIL), the 
output buffer counter (one byte at address 
OCNT), the index to the head of the output 
buffer (one byte at address OHEAD), the index 
to the tail of the output buffer (one byte at 
address OIE), and an Output Interrupt Enable 
flag (one byte at address OIE). The input buffer 
starts at address IBUF and its size is IBSZ; the 
output buffer starts at address OBUF and its size 
is OBSZ. 


5. INIT clears the buffer counters, sets 
both the heads and the tails of the buffers to 
zero, sets up the interrupt vector, resets the 
ACIA by performing a master reset on its 
control register (the ACIA has no reset 
input), and places the ACIA in its required 
operating mode by storing the appropriate 
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value in its control register. INIT enables the 
input interrupt and disables the output inter- 
rupt. It does, however, clear the output inter- 
rupt enable flag, thus indicating that the 
ACIA is ready to transmit data, although it 
cannot cause an output interrupt. 


6. IOSRVC determines whether the inter- 
rupt was an input interrupt (bit 0 of the ACIA 
status register — 1), an output interrupt (bit 
1 of the ACIA status register = 1), or the 
product of some other device. If the input 
interrupt occurred, the program reads the 
data and determines if there is room for it in 
the buffer. If there is room, the processor 
stores the character at the tail of the input 
buffer, moves the tail of the buffer up one 
position, and increases the input buffer 
counter by 1. If the output interrupt oc- 
curred, the program determines whether 
there is any data in the output buffer. If there 
is none, the program disables the output 
interrupt (so it will not interrupt repeatedly) 
and clears an Output Interrupt flag that indi- 
cates the ACIA is actually ready. The flag lets 
the main program know that the ACIA is 
ready even through it cannot declare its 
readiness by forcing an interrupt. If there is 
data in the output buffer, the program 
obtains a character from the head of the 
buffer, sends it to the ACIA, moves the head 
of the buffer up one position, and decreases 
the output buffer counter by 1. It then ena- 
bles both input and output interrupts and sets 
the Output Interrupt flag (in case that flag 
had been cleared earlier). 


. The new problem that occurs in using 
multiple-character buffers is the manage- 
ment of queues. The main program must 
read the data in the same order in which the 
input interrupt service routine receives it. 
Similarly, the output interrupt service 


routine must send the data in the same order 
that the main program stores it. Thus we : 
have the following requirements for handling 
input: 


1. The main program must know whether 
there is anything in the input buffer. 


2. If the input buffer is not empty, the 
main program must know where the oldest 
character is (that is, the one that was received 
first). 


3. The input interrupt service routine 
must know whether the input buffer is full. 


4. If the input buffer is not full, the input 
interrupt service routine must know where 
the next empty place is (that is, it must know 
where it should store the new character). 


The output interrupt service routine and 
the main program have a similar set of 
requirements for the output buffer, although 
the roles of sender and receiver are reversed. 

We meet requirements 1 and 3 by main- 
taining a counter ICNT. INIT initializes 
ICNT to zero, the interrupt service routine 
adds 1 to it whenever it receives a character 
(assuming the buffer is not full), and the 
main program subtracts 1 from it whenever it 
removes a character from the buffer (assum- 
ing the buffer is not empty). Thus the main 
program can determine whether the input. 
buffer is empty by checking if ICNT is zero. 
Similarly, the interrupt service routine can 
determine whether the input buffer is full by 
checking if ICNT is equal to the size of the 
buffer. 

We meet requirements 2 and 4 by main- 
taining two indexes, IHEAD and ITAIL, 
defined as follows: 


l. ITAIL is the index of the next empty 
location in the buffer. 
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2. IHEAD is the index of the oldest 


^ character in the buffer. 


INIT initializes IHEAD and ITAIL to 
zero. Whenever the interrupt service routine 
receives a character, it places it in the buffer 
at index ITAIL and increments ITAIL by 1 
(assuming that the buffer is not full). 
Whenever the main program reads a 
character, it removes it from the buffer at 
index IHEAD and increments IHEAD by 1 
(assuming that the buffer is not empty). 
Thus IHEAD “сһавев” ITAIL across the 
buffer with the service routine entering 


Entry Conditions 


1. INCH: none 

2. INST: none 

3. OUTCH: character to transmit in 
accumulator 

4. OUTST: none 

5. INIT: none 
; Title 
; Мате: SINTB 

Purpose: 


a 6850 ACIA. 


INCH 


чо че че чо че че WO 


Interrupt input and output using а 6850 
ACIA and a multiple character buffer. 


This program consists of 5 subroutines which 
perform interrupt driven input and output using 


Read a character. 


characters at one end (the tail) while the 
main program removes them from the other 
end (the head). The occupied part of the 
buffer thus could start and end anywhere. If 
either IHEAD or ITAIL reaches the physical 
end of the buffer, we simply set it back to 
zero. Thus we allow wraparound on the 
buffer; that is, the occupied part of the buffer 
could start near the end (say, at byte #195 of 
a 200-byte buffer) and continue back to the 
beginning (say, to byte +10). Thus IHEAD 
would be 195, ITAIL would be 10, and the 
buffer would contain 15 characters occupying 
bytes +195 through 199 and 0 through 9. 


Exit Conditions 


1. INCH: character in accumulator 

2. INST: Carry flag = 0 if no 
characters are available, 1 if a character 
is available 

3. OUTCH: none 

4. OUTST: Carry flag = 
buffer is not full, 1 if it is full 

5. INIT: none 


0 if output 


me =e зо че «чо 


me че че че чо че чо 


me чо чо че чо че че че че че чо че че че че че чо WE че че WH че че че че че TS TE ча We че TO чо зо TO TO зе TO чо TO че “с TO NO "€ чо WS че чо чо чо чо Ne чо чо TO 


Entry: 


Exit: 


Registers used: 


Registers used: 
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INST 
Determine input status (whether a character 
is available). 

OUTCH | 
Write a character. 

OUTST 
Determine output status (whether the output 
buffer is full). 

INIT 
Initialize. 


INCH 
No parameters. 
INST 
No parameters. 
OUTCH 
Register A = character to transmit 
OUTST | 
No parameters. 
INIT 
No parameters. 


INCH 
Register A = character. 
INST 
Carry flag equals 0 if no characters are 
available, 1 if character is available. 
OUTCH | 
No parameters 
OUTST 
Carry flag equals 0 if output buffer is 
empty, l if it is full. 
INIT 
No parameters. 
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Чо ~o ~e чо чо чо че чо че че че чо чо че чо чо чо чо че че чо чо чо че чо че че чо чо чо чо чо че че че чо чо че че че че че че че че че че че че че че чо че че 


Time: 


Size: 


Buffers: 


Note: 


A,F 


INCH 
70 cycles if a character is available 
INST 
18 cycles 
OUTCH 
75 cycles minimum, if the output buffer is 
not full and the ACIA is ready to transmit 
OUTST 
12 cycles 
INIT 
89 cycles 
IOSRVC 


27 cycles minimum if the interrupt is not ours 


73 cycles to service a input interrupt 
102 cycles to service a output interrupt 


Program 258 bytes 
Data 7 bytes plus size of buffers 


The routines assume two buffers starting at 
addresses IBUF and OBUF. The lengths of the 
buffers in bytes are IBSZ and OBSZ. For the 
input buffer, IHEAD is the index of the oldest 
character (the next one the main program should 
read), ITAIL is the index of the next empty 
element (the next one the service routine 
should fill), and ICNT is the number of bytes 
currently filled with characters. For the 
output buffer, OHEAD is the index of the oldest 
character (the next one the service routine 
should send), OTAIL is the index of the next 
empty element (the next one the main program 
should fill), and OCNT is the number of bytes 
currently filled with characters. 


Wraparound is provided on both buffers, so that 
the currently filled area may start anywhere 
and extend through the end of the buffer and 
back to the beginning. For example, if the 
output buffer is 40 hex bytes long, the section 
filled with characters could exetend from 
OBUF+32H (OHEAD=32H) to OBUF+10H (OTAIL-11H). 
That is, there are 19H filled bytes occupying 
addresses OBUF+32H through OBUF+39H and 
continuing to OBUF through OBUF-*10H. The buffer 
thus looks like a television picture with the 
vertical hold skewed, so that the frame starts 
above the bottom of the screen, leaves off at 
the top, and continues at the bottom. 


;EXAMPLE 6850 ACIA PORT DEFINITIONS FOR AN APPLE SERIAL BOARD IN SLOT 1 


"9 ~o чо чо чо чо ~e ~e чо чо чо чо чо чо чо чо TE Әә чо че чо че че чо че WE чо чо чо чо чо чо че чо TO чо че че че че чо чо Be че че чо че че че че чо че чо чо 


ACIASR 
ACIADR 
ACIACR 
IRQVEC 


;READ A 


INCH: 


INCH1: 


; RETURN 


INST: 


INSTI: 


. EQU 0C0 94H 
. EQU 0C095H 
. EQU 0C094H 
. EQU 03FEH 
CHARACTER 

JSR INST 
BCC INCH 
PHP 

SEI 

LDY IHEAD 
LDA IBUF,Y 
INY 

CPY #1852 
BCC INCH1 
LDY #0 

STY IHEAD 
DEC ICNT 
PLP 

RTS 


INPUT STATUS (CARRY 


CLC 
LDA 
BEQ 
SEC 


RTS 


ICNT 
INSTI 


;WRITE A CHARACTER 


OUTCH: 


WAITOC: 


OUTCH1: 


PHP 
PHA 
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;ACIA STATUS REGISTER 
;ACIA DATA REGISTER 

;ACIA CONTROL REGISTER 
;APPLE IRQ VECTOR ADDRESS 


}15 A CHARACTER AVAILABLE ? 
;BRANCH IF NOT 

;SAVE CURRENT STATE OF INTERRUPTS 
;DISABLE INTERRUPTS 


;GET CHARACTER AT HEAD OF BUFFER 
;DO WE NEED WRAPAROUND IN BUFFER ? 


;BRANCH IF NOT 
;ELSE SET HEAD BACK TO ZERO 


:DECREMENT CHARACTER COUNT 
»RESTORE FLAGS 


IF CHARACTERS ARE AVAILABLE, 0 IF NOT) 


;CLEAR CARRY (ASSUME NO CHARACTERS AVAILABLE) 


;BRANCH IF THERE ARE NONE 
;CARRY = 1 (CHARACTERS ARE AVAILABLE) 


;SAVE STATE OF INTERRUPT FLAG 
;SAVE CHARACTER TO OUTPUT 


;WAIT UNTIL THERE IS EMPTY SPACE IN THE OUTPUT BUFFER 


JSR 
BCS 
SEI 


PLA 
LDY 


STA 


INY 
C PY 
BCC 
LDY 


STY 
INC 
LDA 


BNE 


OUTST 
WAITOC 


OTAIL 
OBUF , Y 


#OBSZ 
OUTCH1 
#0 
OTAIL 
OCNT 
OIE 


OUTCH2 


71S THE OUTPUT BUFFER FULL ? 

;BRANCH IF IT IS FULL 

;DISABLE INTERRUPTS WHILE LOOKING AT THE 
; SOFTWARE FLAGS 

;GET THE CHARACTER 


;STORE CHARACTER IN THE BUFFER 


;DO WE NEED WRAPAROUND ON THE BUFFER ? 
;BRANCH IF NOT 
;ELSE SET TAIL BACK TO ZERO 


;INCREMENT BUFFER COUNTER 
?АКЕ INTERRUPTS DISABLED BUT THE АСТА IS 
; ACTUALLY READY ? 


;EXIT IF ACIA INTERRUPTS NOT READY AND ENABLED 
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‘JSR OUTDAT sELSE SEND THE DATA TO THE PORT AND ENABLE 
; INTERRUPTS 
OUTCH2: 
PLP :RESTORE FLAGS 
RTS 


;OUTPUT STATUS 


OUTST: 
LDA OCNT 
CMP $OBSZ :15 OUTPUT BUFFER FULL ? 
; IF OCNT >= OBSZ THEN 
H CARRY = 1 INDICATING THAT THE OUTPUT 
2 BUFFER IS FULL 
; ELSE 
2 CARRY - 0 INDICATING THAT THE CHARACTER 
H CAN BE PLACED IN THE BUFFER 
‘RTS 
; INITIALIZE 
INIT: | 
РНР ¿SAVE CURRENT STATE OF FLAGS 
SEI ;DISABLE INTERRUPTS 
; INITIALIZE THE SOFTWARE FLAGS 
LDA #0 
STA ICNT ;NO INPUT DATA 
STA IHEAD 
STA ITAIL 
STA OCNT ;NO OUTPUT DATA 
STA OHEAD 
STA OTAIL 
STA OIE ;ACIA IS READY TO TRANSMIT (NOTE THIS 1!!) 
? ЗАУЕ THE CURRENT IRQ VECTOR IN NEXTSR 
LDA IRQVEC 
STA NEXTSR 
LDA IRQVEC+1 
STA NEXTSR-*1 
;SET THE IRQ VECTOR TO OUR INPUT SERVICE ROUTINE 
LDA AIOS 
STA IRQVEC 
LDA AIOS+1 
STA IRQVEC+1 
;INITIALIZE THE 6850 ACIA 
LDA #011B 
STA ACIACR MASTER RESET АСТА 
LDA #10010001B | 
STA ACIACR | INITIALIZE АСТА MODE TO 


DIVIDE BY 16 
8 DATA BITS 
2 STOP BITS 


чо че чо чо 
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; OUTPUT INTERRUPTS DISABLED (NOTE THIS !!) 
; INPUT INTERRUPTS ENABLED 


PLP ;RESTORE CURRENT STATE OF THE FLAGS 

RTS 
AIOS: . WORD IOSRVC ;ADDRESS OF INPUT OUTPUT SERVICE ROUTINE 
;INPUT OUTPUT INTERRUPT SERVICE ROUTINE 
IOSRVC : 

PHA ;SAVE REGISTER А 

CLD ;BE SURE PROCESSOR IS IN BINARY MODE 


;GET THE АСТА STATUS: BIT 0 = 1 IF AN INPUT INTERRUPT 
;BIT 1 = 1 IF AN OUTPUT INTERRUPT 


LDA ACIASR 
LSR A ;BIT 0 TO CARRY 
BCS IINT ;BRANCH IF AN INPUT INTERRUPT 
LSR A ;BIT 1 TO CARRY 
BCS OINT ;BRANCH IF AN OUTPUT INTERRUPT 
;THE INTERRUPT WAS NOT OURS 
PLA 
JMP (NEXTSR) ;GOTO THE NEXT SERVICE ROUTINE 
;SERVICE INPUT INTERRUPTS 
IINT: 
TYA 
PHA ;SAVE REGISTER Y 
;GET THE DATA AND STORE IT IN THE BUFFER IF THERE IS ROOM 
LDA ACIADR ;READ THE DATA 
LDY ICNT ;IS THERE ROOM IN THE BUFFER ? 
CPY #1857 
BCS EXIT ;EXIT, NO ROOM IN THE BUFFER 
LDY ITAIL ;ELSE STORE THE DATA IN THE BUFFER 
STA IBUF,Y 
INY ;INCREMENT TAIL INDEX 
CPY #1852 ;DO WE NEED WRAPAROUND ON THE BUFFER ? 
BCC IINTl ;BRANCH IF NOT 
LDY #0 ;ELSE SET TAIL BACK TO ZERO 
IINT1: 
STY ITAIL ;STORE NEW TAIL INDEX 
INC ICNT ;INCREMENT INPUT BUFFER COUNTER 
JMP EXIT ;EXIT IOSRVC 
;SERVICE OUTPUT INTERRUPTS 
OINT: 
TYA 
PHA ;SAVE REGISTER Y 
LDA OCNT ;IS THERE ANY DATA IN THE OUTPUT BUFFER ? 
BEQ NODATA .  #BRANCH IP NOT (DISABLE THE INTERRUPTS) 
JSR OUTDAT ;ELSE SEND A CHARACTER | 


JMP EXIT 


488 interrupts 


NODATA: 


EXIT: 


PLA 
RTI 


#10010001B 


ACIACR 
#0 
OIE 


;DISABLE OUTPUT INTERRUPTS, ENABLE INPUT 

; INTERRUPTS, 8 DATA BITS, 2 STOP BITS, DIVIDE 
; BY 16 CLOCK 

;TURN OFF INTERRUPTS 


? INDICATE OUTPUT INTERRUPTS ARE DISABLED 
; BUT ACIA IS ACTUALLY READY 


;RESTORE REGISTER Y 
;RESTORE REGISTER A 
;RETURN FROM INTERRUPT 


; K k k k k k k k KI k k k k k k k k k k k k k k k k k k k k k R K 
; ROUTINE: OUTDAT 


;PURPOSE: SEND A CHARACTER TO THE ACIA FROM THE OUTPUT BUFFER 
;ENTRY: OHEAD IS THE INDEX INTO OBUF OF THE CHARACTER TO SEND 


;EXIT: 


NONE 


;REGISTERS USED: A,F 
; k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k kk 


OUTDAT: 


OUTD1: 


LDA 
AND 
BEQ 


RTS 


;DATA SECTION 


ICNT 


` IHEAD 


ITAIL 
OCNT 
OHEAD 
OTAIL 
OIE 


IBSZ 
IBUF 


. BLOCK 
. BLOCK 
‚ BLOCK 
. BLOCK 
. BLOCK 
. BLOCK 
. BLOCK 


. EQU 
. BLOCK 


ACIASR 
$00000010B 
OUTDAT 
OHEAD 
OBUF,Y 
ACIADR 


#OBSZ 
OUTD1 
#0 


OHEAD 
OCNT 
$10110001B 
ACIACR 


%ОҒЕН 
ОТЕ 


:15 АСТА OUTPUT REGISTER EMPTY ? 
;BRANCH IF NOT EMPTY (BIT l - 0) 


;GET THE CHARACTER FROM THE BUFFER 
;SEND THE DATA 


;DO WE NEED WRAPAROUND ON THE BUFFER ? 
;BRANCH IF NOT 
;ELSE SET HEAD BACK TO ZERO 


;:SAVE NEW HEAD INDEX 
;DECREMENT OUTPUT BUFFER COUNTER 


;ENABLE 6850 OUTPUT AND INPUT INTERRUPTS, 
; 8 DATA BITS, 2 STOP BITS, DIVIDE BY 16 CLOCK 


? INDICATE THE OUTPUT INTERRUPTS ARE ENABLED 


; INPUT BUFFER COUNTER 

;INDEX TO HEAD OF INPUT BUFFER 
;INDEX TO TAIL OF INPUT BUFFER 
;OUTPUT BUFFER COUNTER 

; INDEX TO HEAD OF OUTPUT BUFFER 
;INDEX TO TAIL OF OUTPUT BUFFER 
;OUTPUT INTERRUPT ENABLE FLAG 


;INPUT BUFFER SIZE 
;INPUT BUFFER 
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OBSZ . EQU 80 ;OUTPUT BUFFER SIZE 
OBUF .BLOCK OBSZ ;OUTPUT BUFFER 
NEXTSR .BLOCK 2 ;ADDRESS OF THE NEXT INTERRUPT SERVICE ROUTINE 


SAMPLE EXECUTION: 


чө чо чо че че 
чө че. че чо чо 


5С1103: 
JSR INIT ;INITIALIZE 
CLI ;ENABLE INTERRUPTS 
¿SIMPLE EXAMPLE 
LOOP: 
JSR INCH ; ¿READ A CHARACTER 
PHA 
JSR OUTCH ;BCHO IT 
PLA 
CMP #1BH ;IS CHARACTER AN ESCAPE ? 
BNE LOOP ;BRANCH IF NOT, CONTINUE LOOPING 
BRK 
;АМ ASYNCHRONOUS EXAMPLE 
; OUTPUT "A" TO THE CONSOLE CONTINUOUSLY BUT ALSO LOOK AT THE 
; INPUT SIDE, READING AND ECHOING ANY INPUT CHARACTERS. 
ASYNLP: 
:ООТРОТ AN "A" IF OUTPUT IS NOT BUSY 
JSR OUTST ;IS OUTPUT BUSY ? 
BCS ASYNLP ¿BRANCH IF IT IS 
LDA $"A" 
JSR OUTCH ;OUTPUT THE CHARACTER 
? СЕТ A CHARACTER FROM THE INPUT PORT IF АМҮ 
JSR INST :15 INPUT AVAILABLE ? 
BCC ASYNLP ;BRANCH IF NOT (SEND ANOTHER "A") 
JSR INCH ;GET THE CHARACTER 
CMP #1BH ? 15 CHARACTER AN ESCAPE ? 
BEQ DONE ;BRANCH IF IT IS 
JSR OUTCH ;ELSE ECHO IT 
JMP ASYNLP ; AND CONTINUE 
DONE: 
BRK 


. END ; PROGRAM 


Real-Time Clock and Calendar (CLOCK) 


Maintains a time-of-day 24-hour clock 
and a calendar based on a real-time clock 
interrupt. Consists of the following sub- 
routines: 


1. CLOCK returns the starting address of 
the clock variables. 

2. ICLK initializes the clock interrupt and 
initializes the clock variables to their default 
values. 

3. CLKINT updates the clock after each 
interrupt (assumed to be spaced one tick 
apart). 

A long example in the listing describes a 
time display routine for the Apple II com- 
puter. The routine prompts the operator for 
an initial date and time. It then continuously 
displays the date and time in the center of the 
monitor screen. The routine assumes an 
interrupt board in slot 2. 

Procedure: 


1. CLOCK loads the starting address of 
the clock variables into the accumulator 
(more significant byte) and index register Y 
(less significant byte). The clock variables are 
stored in the following order (lowest address 
first): ticks, seconds, minutes, hours, days, 
months, less significant byte of year, more 
significant byte of year. 

2. ICLK loads the clock variables with 
their default values (8 bytes starting at 
address DFLTS) and initializes the clock 
interrupt (this would be mostly system- 
dependent). 

3. CLKINT decrements the remaining 
tick count by one and updates the rest of the 
clock if necessary. Of course, the number of 
seconds and minutes must be less than 60 
and the number of hours must be less than 
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Registers Used: 
1. CLOCK: 
2. ICLK: 

3. CLKINT: 


Execution Time: 
1. CLOCK: 
2. ICLK: 166 cycles 


3. CLKINT: 33 cycles if only TICK must 
be decremented, 184 maximum if changing to a 
new year. 


A, F, Y 
A, Y 
none 


14 cycles 


Program Size: 
1. CLOCK: 
2. ICLK: 

3. CLKINT: 


7 bytes 
39 bytes 
145 bytes 


Data Memory Required: 18 bytes anywhere in 
RAM. These include eight bytes for the clock 
variables (starting at address ACVAR), eight 
bytes for the defaults (starting at address 
DFLTS), and two bytes for the address of the 
next service routine (starting at address NEX- 
TSR). 


24. The day of the month must be less than or 
equal to the last day for the current month; 
an array of the last days of each month begins 
at address LASTDY. If the month is Febru- 
ary (that is, month 2), the program must 
check to see if the current year is a leap year. 
This requires a determination of whether the 
two least significant bits of memory location 
YEAR are both zeros. If the current year is a 
leap year, the last day of February is the 29th, 
not the 28th. The month number may not 
exceed 12 (December) or a carry to the year 
number is necessary. The program must 
reinitialize the variables properly when car- 
ries occur; that is, TICK to DTICK; seconds, 
minutes, and hours to zero; day and month 
to 1 (meaning the first day and January, 
respectively). 


Entry Conditions 


1l. CLOCK: none 
2. ICLK: none 
3. CLKINT: none 


Examples 


These examples assume that the tick rate 
is DTICK Hz (less than 256 Hz — typical 
values would be 60 Hz or 100 Hz) and that 
the clock and calendar are saved in memory 
locations 


TICK number of ticks remaining before a 
carry occurs, counted down from 
DTICK 

SEC seconds (0 to 59) 

MIN minutes (0 to 59) 

HOUR hour of day (0 to 23) 

DAY day of month (1 to 28, 30, or 31, 
depending on month) 

MONTH month of year (1 through 12 for 
January through December) 

YEAR & 

YEAR+1 current year 


1. Starting values are March 7, 1982. 
11:59.59 and 1 tick left. 


That is, 
(TICK) = 1 
(SEC) = 59 
(MIN) = 59 
(HOUR) = 23 
(DAY) = 07 
(МОМТН) = 03 
(УЕАК) = 1982 
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Exit Conditions 


1. CLOCK: more significant byte of 
Starting address of clock variables in 
accumulator, less significant byte in register Y 

2. ІСІК: none 


3. CLKINT: none 


Result (after the tick): March 8, 1982 
12:00.00 and DTICK ticks 


That is, 

(TICK) — DTICK 

(SEC) =0 

(MIN) =0 

(HOUR) = 0 

(DAY) = 08 

(MONTH) = 03 

(YEAR) = 1982 

2. Starting values are Dec. 31, 1982. 
11:59.59 p.m. and 1 tick left 

That is, 

(TICK) = 

(SEC) = 59 

(MIN) = 59 

(HOUR) = 23 

(DAY) = 31 

(MONTH) = 12. 

(YEAR) = 1982 

Result (after the tick): Jan. 1, 1983. 


12:00.00 a.m. and DTICK ticks 
That is, 


(TICK) = DTICK 
(SEC) =0 
(MIN) =0 
(HOUR) = 0 
(DAY) =1 
(MONTH) = 1 
(YEAR) = 1983 
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Title Real time clock and calendar 
Name: CLOCK 


me wo чо чо 
me w че чо 


Purpose: This program maintains a time of day 24 hour 
clock and a calendar based on a real time clock 
interrupt. 


CLOCK 

Returns the address of the clock variables 
ICLK 

Initialize the clock interrupt 


Entry: CLOCK 
None 

ICLK 
None 


Exit: CLOCK | | 
Register A - High byte of the address of the 
time variables. 


Register Y - Low byte of the address of the 
time variables. 


ICLK 
None 


Registers used: All 


Time: CLOCK 

14 cycles 

ICLCK 
166 cycles 

CLKINT 
22 cycles minimum if the interrupt is not ours 
33 cycles normally if decrementing tick 
184 cycles maximum if changing to a new year 


me we чо че че MO че чв чо че чо We че 99 че че BE че BO WE чо BO че WO че че чо че WH ча че че че WH 90 че че чо 
чо чо чо че че чо че че че ча WE че че WE WH че че WE “30 WH че ча Че чо Че “ГГ чо чо чо чо 6 че чо WH че че че WE 


Size: Program 191 bytes 
Data 18 bytes 

IRQVEC: .EQU ОЗРЕН ;APPLE IRQ VECTOR 
CLKPRT: .EQU ОСОАОН` ¿SLOT 2 IO LOCATION OF AN INTERRUPT BOARD 
CLKIM: .EQU ОТН ¿BIT 0 = INTERRUPT REQUEST BIT 
TRUE: . EQU OFFH ;NOT ZERO = TRUE 
FALSE: .EQU 0 ;2ERO = FALSE 
¿RETURN ADDRESS OF THE CLOCK VARIABLES 
CLOCK: 

LDA АСУАК+1 

LDY ACVAR ;GET ADDRESS OF CLOCK VARIABLES 


RTS 


;INITIALIZE CLOCK INTERRUPT 


ICLK: 


ICLK1: 


; HANDLE 
CLKINT: 


OURINT: 
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;SAVE FLAGS 
;DISABLE INTERRUPTS 


;INITIALIZE CLOCK VARIABLES TO THE DEFAULT VALUES 


PHP 

SEI 

LDY $8 

LDA DFLTS-1,Y 

STA CLKVAR-1,Y 

DEY 

BNE ICLK1 

;SAVE CURRENT IRQ VECTOR 
LDA IRQVEC 

STA NEXTSR 

LDA ТВОУЕС+1 

STA NEXTSR 

;SET IRQ VECTOR TO CLKINT 
LDA ACINT 

STA IRQVEC 

LDA ACINT+1 

STA IRQVEC+1 


;HERE SHOULD BE CODE TO 
; EXIT 

PLP 

RTS 

THE CLOCK INTERRUPT 


PHA 
CLD 


INITIALIZE INTERRUPT HARDWARE 


;RESTORE FLAGS 


;SAVE REGISTER A 
;BE SURE PROCESSOR IS IN BINARY MODE 


;CHECK IF THIS IS OUR INTERRUPT 
; THIS IS AN EXAMPLE ONLY 


LDA CLKPRT 
AND #CLKIM 
BNE OURINT 
PLA 

JMP (NEXTSR) 


; PROCESS OUR INTERRUPT 


DEC TICK 
BNE ЕХІТІ 
LDA DTICK 
STA TICK 


;SAVE X AND Y NOW ALSO 
TYA 
PHA 


;LOOK AT THE INTERRUPT REQUEST BIT 
;BRANCH IF IS OUR INTERRUPT 
;RESTORE REGISTER A 

:МА5 NOT OUR INTERRUPT, 

; TRY NEXT SERVICE ROUTINE 


;BRANCH IF TICK DOES NOT EQUAL ZERO YET 
; ЕХІТІ RESTORES ONLY REGISTER А 


;RESET TICK TO DEFAULT VALUE 
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INCMTH: 


TXA 

PHA 

; INCREMENT SECONDS 
INC SEC 

LDA SEC 

CMP #60 

BCC EXIT 

LDY #0 

STY SEC 

; INCREMENT MINUTES 
INC MIN 

LDA MIN 

CMP #60 

BCC EXIT 

STY MIN 


; INCREMENT HOURS 


INC HOUR 
LDA HOUR 
CMP #24 

BCC EXIT 
STY HOUR 


; INCREMENT DAYS 


;SECONDS = 60 ? 

;EXIT IF LESS THAN 60 SECONDS 

7; ELSE 

; ZERO SECONDS, GO TO NEXT MINUTE 


;MINUTES = 60 ? 

;EXIT IF LESS THAN 60 MINUTES 
ELSE | 

; ZERO MINUTES, GO TO NEXT HOUR 


;HOURS = 24 ? 

;EXIT IF LESS THAN 24 HOURS 
; ELSE 

; ZERO HOURS, GO TO NEXT DAY 


;GET CURRENT MONTH 
;DAY - LAST DAY OF THE MONTH ? 
;EXIT IF LESS THAN LAST DAY 


;INCREMENT MONTH (HANDLE 29TH OF FEBRUARY) . 


7IS THIS FEBRUARY ? 
;BRANCH IF NOT FEBRUARY 
;IS ІТ A LEAP YEAR? 


;BRANCH IF YEAR IS NOT LEAP YEAR 


;THIS IS A FEBRUARY AND A LEAP YEAR SO 29 DAYS NOT 28 DAYS 


INC DAY 
LDA DAY 

LDX MONTH 

CMP LASTDY-1,X 
BCC EXIT 

CPX #2 

BNE INCMTH 

LDA YEAR 

AND #00000011B 
BNE INCMTH 

LDA DAY 

CMP #29 

BEQ EXIT 

LDY #1 

STY DAY 

INC MONTH 

LDA MONTH 

CMP #13 

BCC EXIT 

STY MONTH 


;EXIT IF NOT 29TH OF FEBRUARY 


;CHANGE DAY TO 1, INCREMENT MONTH 


;DONE WITH DECEMBER ? 

;EXIT IF NOT 

;ELSE 

; CHANGE MONTH TO 1 (JANUARY) 
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;INCREMENT YEAR | 

INC YEAR ;INCREMENT LOW BYTE 
BNE EXIT 

INC YEAR+1 ; INCREMENT HIGH BYTE 


EXIT: 
¿RESTORE REGISTERS 
PLA 
TAX 
PLA 
TAY 
EXIT1: 
PLA 
RTI :RETURN FROM INTERRUPT 


;ARRAY OF THE LAST DAYS OF EACH MONTH 


LASTDY: 
.BYTE 31 ; JANUARY 
.BYTE 28 ;FEBRUARY (EXCEPT LEAP YEARS) 
.BYTE 31 ; MARCH 
.BYTE 30 ;APRIL 
.BYTE 31 ;MAY 
.BYTE 30 ; JUNE 
.BYTE 31 ; JULY 
.BYTE 31 ; AUGUST 
.BYTE 30 ; SEPTEMBER 
.BYTE 31 ; OCTOBER 
.BYTE 30 ; NOVEMBER 
.BYTE 31 ; DECEMBER 
;CLOCK VARIABLES 
АСМАК: .WORD CLKVAR ;BASE ADDRESS OF CLOCK VARIABLES 
CLKVAR: | 
TICK: .BLOCK 1 ;TICKS LEFT IN CURRENT SECOND 
SEC: .BLOCK 1 ; SECONDS 
MIN: .BLOCK 1 ; MINUTES 
HOUR: .ВІОСК 1 ; HOURS 
DAY: .BLOCK 1 ;DAY - 1 THROUGH NUMBER OF DAYS IN A MONTH 
MONTH: .BLOCK 1 ;MONTH 1=JANUARY .. 12-DECEMBER 
YEAR:  .WORD 0 ; YEAR 
; DEFAULTS 
DFLTS: 
DTICK: .BYTE 60 ;DEFAULT TICK (60HZ INTERRUPT) 
DSEC: .ВҮТЕ 0 ;DEFAULT SECONDS 
DMIN:  .BYTE 0 ;DEFAULT MINUTES 
DHR: .BYTE 0 ;DEFAULT HOURS 
DDAY: .ВҮТЕ 1 ;DEFAULT DAY 
DMTH: .ВҮТЕ 1 ¿DEFAULT MONTH 
DYEAR: .WORD 1981 ;DEFAULT YEAR 
NEXTSR: .BLOCK 2 ;ADDRESS OF THE NEXT INTERRUPT SERVICE ROUTINE 


ACINT: .WORD CLKINT ;ADDRESS OF THE CLOCK INTERRUPT ROUTINE 
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чө we чо Ге че че че че че WO че WO 


SAMPLE EXECUTION: 


;CLK VARIABLE OFFSETS 


OTICK: 
OSEC: 
OMIN: 
OHR: 
ODAY: 
OMTH: 
OYEAR: 


. EQU 
. EQU 
. EQU 
. EQU 
. EQU 
. EQU 
. EQU 


0 


сольо мн 


; PAGE ZERO TEMPORARY 


CVARS: 


;APPLE EQUATES FOR THE EXAMPLE 


ESC: 


COUT: 


GETLN1: 


$C1104: 


PROMPT: 


PMTLP: 


. EQU 


. EQU 
. EQU 
. EQU 
. EQU 
. EQU 
. EQU 
. EQU 
. EQU 


JSR 


Орон 


lBH 
24H 
25H 
OFC58H 
OFC22H 
OFDOCH 
OF DEDH 
OFD6FH 


ICLK 


;OFFSET 
;OFFSET 
;OFFSET 
;OFFSET 
;OFFSET 
;OFFSET 
;OFFSET 


; PAGE 2 
; ADDRE 


This routine prompts the operator for an initial date and time, 
it then continuously displays the date and time in the center of 
the screen. 


The operator may use the escape key to abort the routine. Any 
other key will reprompt for another initial date and time. 


TO 
TO 
TO 
TO 
TO 
TO 
TO 


ERO 
SS 


чо че чо TO TO TOE че WH че чо че "90 


TICK 
SECONDS 
MINUTES 
HOURS 
DAY 
MONTH 
YEAR 


TEMPORARY FOR THE CLOCK VARIABLES 


;ESCAPE CHARACTER 

MONITOR CURSOR HORIZONTAL POSITION 
MONITOR CURSOR VERTICAL POSITION 
MONITOR HOME ROUTINE 

MONITOR VTAB ROUTINE 

MONITOR CHARACTER INPUT ROUTINE 

MONITOR CHARACTER OUTPUT ROUTINE 

MONITOR GET LINE WITH OUR PROMPT ROUTINE 


APPLE 
; APPLE 
; APPLE 
;APPLE 
; APPLE 
; APPLE 
; APPLE 


;INITIALIZE 


;GET TODAYS DATE AND TIME MM/DD/YY HR:MIN:SEC 
; PRINT PROMPT 


JSR 
LDA 
STA 


LDY 
LDA 
BEQ 
INC 
JSR 
JMP 


;READ THE TIME STRING 


HOME 


#0 
MSGIDX 


MSGIDX 
MSG,Y 
RDTIME 
MSGIDX 
WRCHAR 
PMTLP 


;HOME AND CLEAR SCREEN 


;BRANCH IF END OF MESSAGE 

; INCREMENT TO NEXT CHARACTER 

;OUTPUT CHARACTER THROUGH APPLE MONITOR 
; CONTINUE 


RDTIME: 
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JSR RDLINE ;READ A LINE INTO THE APPLE LINE BUFFER AT 
; 200H. RETURNS WITH LENGTH IN X 


;GET THE ADDRESS OF THE CLOCK VARIABLES 


; ENABLE INTERRUPTS 


CLI 


JSR CLOCK ¿GET CLOCK VARIABLES 
STA CVARS +1 

STY CVARS ¿STORE ADDRESS 
sINITIALIZE VARIABLES FOR READING NUMBERS 

STX LLEN :SAVE LENGTH OF LINE 
LDA #0 

STA LIDX ? INITIALIZE LINE INDEX TO ZERO 
‚СЕТ MONTH 

JSR NXTNUM ;GET NEXT NUMBER FROM INPUT LINE 
LDY #OMTH 

STA (CVARS) ,Y ¿SET MONTH 

;GET DAY 

JSR NXTNUM 

LDY #ODAY 

STA (CVARS) ,Y 

;GET YEAR 

JSR NXTNUM 

LDY ЗОУЕАК 

STA (CVARS),Y 

CLC 

ADC CEN20 ;ADD 1900 TO ENTRY 
STA (CVARS) ,Y ;SET LOW BYTE OF YEAR 
LDA СЕМ20+1 

ADC #0 

INY 

STA (CVARS) ,Y ;SET HIGH BYTE OF YEAR 
‚СЕТ HOUR 

JSR NXTNUM 

LDY #OHR 

STA (CVARS),Y 

;GET MINUTES 

JSR NXTNUM 

LDY #OMIN 

STA (CVARS) ,Y 

; GET SECONDS 

JSR NXTNUM 

LDY #OSEC 

STA (СУАК5),Ү 


;ENABLE INTERRUPTS 


;HOME AND CLEAR THE SCREEN 


498 interrupts 


JSR HOME 


;LOOP PRINTING THE TIME EVERY SECOND 
;MOVE CURSOR TO LINE 12 CHARACTER 12 


LOOP: 
LDA #11 
STA CV ;SET CURSOR VERTICAL POSITION 
STA CH ;SET CURSOR HORIZONTAL POSITION 
JSR VTAB ; POSITION CURSOR 
; PRINT MONTH 
LDY #OMTH 
LDA (CVARS) ,Y 
JSR PRTNUM ;PRINT THE NUMBER 
LDA i e" 
JSR WRCHAR ;PRINT A SLASH 
;PRINT DAY 
LDY #0 DAY 
LDA (CVARS) ,Y 
JSR PRTNUM ;PRINT THE NUMBER 
LDA $£"/" 
JSR WRCHAR ;PRINT A SLASH 
; PRINT YEAR 
LDY #OYEAR 
LDA (CVARS) ,Y 
SEC 
SBC CEN20 ;NORMALIZE YEAR TO 20TH CENTURY 
JSR PRTNUM ; PRINT THE NUMBER 
; PRINT SPACE AS DELIMITER 
LDA %" " 
JSR WRCHAR ;PRINT A SPACE BETWEEN DATE AND TIME 
; PRINT HOURS 
LDY #OHR 
LDA (CVARS) , Y 
JSR PR'TNUM ;PRINT THE NUMBER 
LDA #" ° " 
JSR WRCHAR ;PRINT A COLON 
; PRINT MINUTES 
LDY #OMIN 
LDA (CVARS),Y 
JSR PRTNUM ;PRINT THE NUMBER 
LDA $” e n 
JSR WRCHAR ¿PRINT A COLON 
; PRINT SECONDS 
LDY $OSEC 
LDA (CVARS) ,Y 
JSR PRTNUM ;PRINT THE NUMBER 


WAIT UNTIL SECONDS CHANGE THEN PRINT AGAIN 
;EXIT IF OPERATOR PRESSES A KEY 


WAIT: 


RDKEY: 


DONE: 
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LDY #OSEC 

LDA (CVARS) ,Y 

STA CURSEC ;SAVE IN CURRENT SECOND 

;CHECK KEYBOARD 

JSR KEYPRS 

BCS RDKEY ;BRANCH IF OPERATOR PRESSES A KEY 
LDA (CVARS),Y ;GET SECONDS 

CMP CURSEC 

BEQ WAIT ;WAIT UNTIL SECONDS CHANGE 

JMP LOOP ; CONTINUE 


;OPERATOR PRESSED A KEY - DONE IF ESCAPE, PROMPT OTHERWISE 


JSR RDCHAR ;GET CHARACTER 

CMP #ESC 315 ІТ AN ESCAPE? 

BEQ DONE ;BRANCH IF IT IS, ROUTINE IS FINISHED 
JMP PROMPT ;ELSE PROMPT OPERATOR FOR NEW STARTING TIME 
LDA #0 

STA CH ;CURSOR TO HORIZONTAL POSITION 0 

LDA #12 

STA CV ; 

JSR VTAB ;MOVE CURSOR TO LINE 13 BELOW DISPLAY 
BRK 

JMP SC1104 ;CONTINUE AGAIN 


; k k k k k k k k k k k k k k k k k k k k k k k k k k k k k КЕ 


; ROUTINE: KEYPRS 
; PURPOSE: DETERMINE IF OPERATOR HAS PRESSED A KEY 


; ENTRY: 
;EXIT: 


че че me че a 


KEYPRS: 


NONE 

IF OPERATOR HAS PRESSED A KEY THEN 
CARRY = 1 

ELSE 
CARRY = 0 


REGISTERS USED: P 
* k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k 


PHA 
LDA 0C000H ;READ APPLE KEYBOARD PORT 
ASL A ;MOVE BIT 7 TO CARRY ` 
; CARRY = 1 IF CHARACTER IS READY ELSE 0 
PLA 
RTS 


; k k k k k k k k k k k k k k k k k k k k k k k k k k k ЖКХ ЖК 
; ROUTINE: RDCHAR 
; PURPOSE: READ A CHARACTER 


; ENTRY: 
;EXIT: 


NONE 
REGISTER A - CHARACTER 


;REGISTERS USED: A,P 
; k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k 


500 interrupts 


RDCHAR: 
PHA ;SAVE A,X,Y 
TYA 
PHA 
TXA 
PHA 


JSR RCHAR ;APPLE MONITOR RDCHAR 

TSX 

AND $01111111B ;ZERO BIT 7 

STA 103H,X ;STORE CHARACTER IN STACK SO IT WILL BE 
; RESTORED TO REGISTER A 

PLA ;SRESTORE A,X,Y 

TAX 

PLA 

TAY 

PLA 

RTS 


š k k k k k de k k k k k k k k k k k k k k k k k k k k k k k k ЖК 


;ROUTINE: WRCHAR 

; PURPOSE: WRITE A CHARACTER 
;ENTRY: REGISTER A - CHARACTER 
;EXIT: NONE 


¿REGISTERS USED: P 
pkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


WRCHAR: 
PHA ¿SAVE А,Х,Ү 


LDA 103H,X ;GET REGISTER A BACK FROM STACK 


ORA #10000000B ;SET BIT 7 
JSR COUT ;OUTPUT VIA APPLE MONITOR 


PLA ;RESTORE А,Х,Ү 


pkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

? ROUTINE: RDLINE 

; PURPOSE: READ A LINE TO 200H USING THE APPLE MONITOR 
SENTRY: NONE 

;EXIT: REGISTER X = LENGTH OF LINE 


;REGISTERS USED: ALL 
skkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
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RDLINE: 
JSR СЕТЬМ1 ;CALL THE APPLE MONITOR СЕТІМ1 


RTS 


; k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k КЖ 
;ROUTINE: NXTNUM 
;PURPOSE: GET A NUMBER FROM THE INPUT LINE IF ANY 
IF NONE RETURN A 0 
ENTRY: LLEN = LENGTH OF THE LINE 
LIDX = INDEX INTO THE LINE OF NEXT CHARACTER 
EXIT: REGISTER A = LOW BYTE OF NUMBER 
REGISTER Y - HIGH BYTE OF NUMBER 
LIDX - INDEX OF THE FIRST NON NUMERICAL CHARACTER 


;REGISTERS USED: ALL 
pkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


me ча че ча че NO 


NXTNUM: 
LDA #0 
STA NUM 
STA NUM+1 s INITIALIZE NUMBER TO 0 
;:WAIT UNTIL A DECIMAL DIGIT IS FOUND (A CHARACTER BETWEEN ЗОН AND 39H) 
JSR GETCHR СЕТ NEXT CHARACTER 
BCS EXITNN :EXIT IF END OF LINE 
CMP "0" 
BCC NXTNUM ;WAIT IF LESS THAN "0" 
CMP &"9"4] 
BCS NXTNUM :WAIT IF GREATER THAN "9" 
;FOUND A NUMBER 

GETNUM: 
PHA :SAVE CHARACTER ON STACK 
;MULTIPLY NUM BY TEN 
LDA NUM 
ASL A 
ROL NUM+1 
STA NUM ;NUM = LOW BYTE OF NUM * 2 
LDX NUM+1 ;REGISTER X = HIGH BYTE OF NUM * 2 
ASL A 
ROL NUM+1 
ASL A ;REGISTER A = LOW BYTE OF NUM * 8 
ROL NUM+1 ;NUM + 1 = HIGH BYTE OF NUM * 8 
CLC ; (NUM * 8) + (NUM * 2) = NUM * 10 
ADC NUM 
STA NUM 
TXA 
ADC МОМ +1 
ЅТА МОМ +1 
;ADD THE CHARACTER TO NUM 
PLA ;GET NEXT CHARACTER 
АГ %00001111В ;NORMALIZE THE CHARACTER TO 0..9 
ADC NUM 


STA NUM 


502 interrupts 


BCC GETNM1 

INC МОМ +] 
GETNM1: 

;GET THE NEXT CHARACTER 

JSR GETCHR 

BCS EXITNN ;EXIT IF END OF LINE 

CMP $"0" 

BCC EXITNN ;EXIT IF LESS THAN "0" 

CMP #"9"+1 

BCC GETNUM ;STAY IN LOOP IF DIGIT (BETWEEN "O" AND "9") 
EXITNN: 

LDA NUM ;RETURN THE NUMBER 

LDY NUM+1 

RTS 


; k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k 


;ROUTINE: GETCHR 

; PURPOSE: GET A CHARACTER FOR THE LINE 

;ENTRY: LIDX - NEXT CHARACTER TO GET 
LLEN = LENGTH OF LINE 

EXIT: IF NO MORE CHARACTERS THEN 


CARRY = 1 
ELSE 
CARRY = 0 


REGISTER A = CHARACTER 


REGISTERS USED: ALL 
*& k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k 


me че че че TO TE че чо 


GETCHR: 
LDA LIDX 
CMP LLEN 
BCS EXITGC ;EXIT CHARACTER GET WITH CARRY = 1 TO 
; INDICATE END OF LINE (LIDX >= LLEN) 
: OTHERWISE, CARRY IS CLEARED 
TAY | 
LDA 200H,Y ;СЕТ CHARACTER 
AND %01111111В ¿CLEAR BIT 7 | 
INY s INCREMENT TO NEXT CHARACTER 
STY LIDX 
; CARRY IS STILL CLEARED 
EXITGC: 
RTS 


; k k k k k k k k k k k k k k k k k k k k k k k k k K k k k K 
;ROUTINE: PRTNUM 

;PURPOSE: PRINT A NUMBER BETWEEN 0..99 
sENTRY: A = NUMBER TO PRINT 

?ЕХІТ: | NONE 


;REGISTERS USED: ALL 
; kkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


PRTNUM: 
LDY 
SEC 
DIV10: 
INY 
SBC 
BCS 
ADC 
;REG A 
;REG Y 
TAX 
TYA 
JSR 
TXA 
JSR 
RTS 
DATA SECTION 
CR . EQU 
MSG . BYTE 
MSGIDX  .BLOCK 
NUM: . BLOCK 
LLEN: . BLOCK 
LIDX: . BLOCK 
CEN20: . WORD 


CURSEC: .BLOCK 


. END 


$"0"-1 


#10 
DIV10 
#1 0+"0 " 


l'S PLACE 
10'S PLACE 


WRCHAR 


WRCHAR 


ODH 


"ENTER DATE AND 


1 
2 
1 
1 
1900 
1 


; PROGRAM 
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;INITIALIZE Y TO "0" - 1 
; Y WILL BE THE 10'S PLACE 


;INCREMENT 10'S 


;MAKE REGISTER A AN ASCII DIGIT 


;SAVE 1'S 
;OUTPUT 10'S PLACE 


;OUTPUT l'S PLACE 


;ASCII CARRIAGE RETURN 

TIME ",CR,"(MM/DD/YR HR:MN:SC)? ",0 
;INDEX INTO MESSAGE 

; NUMBER 

;LENGTH OF INPUT LINE 

;INDEX OF INPUT LINE 

; 20TH CENTURY 

;CURRENT SECOND 
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Appendix A 6502 Instruction Set 
Summary 


Copyright 9 1982 Synertek, Inc. 
Reprinted by permission. 


Table A-1. 6502 Instructions in Alphabetical Order 


INSTRUCTIONS 


[о as | ansv | ацапме | тө, 46.) conortion coves 
ac Mill s sz. 7 


OPERATION 
A+M+C- A (4) (1) 
AAM-A (1) 
c«p ^ ojo 
BRANCH ON C-9 (2) 
BRANCH ON C=1 (2) 
BRANCH ОМ 2-1 
АЛМ 
BRANCH ОМ №=1 (2) 
BRANCH ON 2=9 (2) 
BRANCH ОМ Мәд 
(See Fig. А-1) 
BRANCH ON V»9 (2) 
BRANCH ON V*1 (2) 
9-С 
9-0 


за 
t3 


X*1-X 
Y+1— Y 
JUMP TO NEW LOC 
[See Fig. A-2) JUMP SUB 
M-A (1) 
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Table A-1. 6502 Instructions in Alphabetical Order (Continued) 


CONDITION CODES 


ЕЛПЕСЛТІЛ ЕСІГІ accom | шпн] caom | ант | правел | мех | лш ЕСТІСІ итми 
шнекі __ отта [орм ЩоР|н| ajopin] «орі | жоғ|м| aorin] #lorin] РМ | lorin] #|оР]м | alor) | он | Жо | af м 


м-х А 
MY A B4 
e»[ ^ ор 4 56 
NO OPERATION - 
АУМ-А 9 2415 
48 
98 
68 
| 28 (RESTORED) 
Ср decl f pu ar E 
С фә 66 TEE SER 
(See Fig. A-1) RTRN INT.. 49 
(See Fig. A-2) RTRN SUB 69 
A-M-C — A (1) ЕБ 
1-с 38|2 
1-0 F8|2 


© > © 


m 


RESTORED) 


p = 
$1} 
Ева 
m 
ч 
ВЕ а 
eee S ве ай 
о 
о т 
pas < 
P ELS 
1-9 
til 
=t l 
Fore 


x 
Y 
A 
A 
$ 
х 
х 
Y 
(1; ADD 1 TO "N" IF PAGE BOUNDARY IS CROSSED X INDEX X * ADO - NOT MODIFIED 
2) ADD 1 TO “N” IF BRANCH OCCURS TO SAME PAGE Y INDEX Y — SUBTRACT М7 MEMORY BIT 7 
ADD 2 TO "№" IF BRANCH OCCURS TO DIFFERENT PAGE A ACCUMULATOR ^ AND M, MEMORY BIT 6 
(3) CARRY NOT = BORROW M MEMORY PER EFFECTIVE ADDRESS у OR _ № NUMBER OF CLOCK 
(4) IF IN DECIMAL МОРЕ Z FLAG IS INVALID Ms MEMORY PER STACK POINTER № EXCLUSIVE OR CYCLES 
ACCUMULATOR MUST BE CHECKED FOR ZERO RESULT / 


MODIFIED * NUMBER OF BYTES 


Table A-2. 6502 Operation Codes in Numerical Order 


ORA.IND, X 4. x. ORA-IMM 
QRA-IND, Y 51.2. ORA-ASS, Y 
AND-INO. X B1T-Z. Page 2. 2. AND-IMM 
AND-IND, Y 
€QR IND, X 
ефялмо, Y 
ADC-IND, X 
` ADC-IND, Y 
STA-IND. X 
STAND, Y 
LDA-IND, X | LOX-IMM 
LOAIND, Y 
CMP-IND, X 
CMPAND, Y 
S8C-IND. X 
$8C-IND, Y 


mm O m p O O G OO @ >a Q Ñ = Фф 


9 
1 BH 
2 
3 
4 
5 
6 
7 
B 
9 t 
A 
ви 
c 
D 
E 
F 


APPENDIX A. 6502 INSTRUCTION SETSUMMARY 507 


Table A-3. Summary of 6502 Addressing Modes 


IMM_- IMMEDIATE ADDRESSING — THE OPERAND IS CONTAINED IN THE SECOND BYTE OF THE 
INSTRUCTION. 

ABS - ABSOLUTE ADDRESSING - THE SECOND BYTE OF THE INSTRUCTION CONTAINS THE В 
LOW ORDER BITS OF THE EFFECTIVE ADDRESS. THE THIRD BYTE CONTAINS THE 8 
HIGH ORDER BITS OF THE EFFECTIVE ADORESS. 

2. PAGE - ZERO PAGE ADDRESSING — SECOND BYTE CONTAINS THE 8 LOW ORDER BITS OF 
THE EFFECTIVE ADDRESS. THE 8 HIGH ORDER BITS ARE ZERO. 

А. ACCUMULATOR - ONE BYTE INSTRUCTION OPERATING ON THE ACCUMULATOR. 

Z. PAGE, X - Z PAGE, Y - ZERO PAGE INDEXED - THE SECOND BYTE OF THE INSTRUCTION IS 


Е оса e DD. a ЗЕ оса 
ADDED TO THE INDEX (CARRY IS DROPPED) TO FORM THE LOW ORDER BYTE OF THE 


EA. THE HIGH ORDER BYTE OF THE EA IS ZERO 


ABS, X ABS, Y ABSOLUTE INDEXED — THE EFFECTIVE ADDRESS IS FORMED BY ADDING THE 
INDEX TO THE SECOND AND THIRD BYTE OF THE INSTRUCTION. 

(IND, X) - INDEXEO INDIRECT — THE SECOND BYTE OF THE INSTRUCTION IS ADOED TO THE X 
INDEX, DISCARDING THE CARRY, THE RESULTS POINTS TO A LOCATION ON PAGE 
ZERO WHICH CONTAINS THE 8 LOW ORDER BITS OF THE EA. THE NEXT BYTE CON- 
TAINS THE 8 HIGH ORDER BITS. 

(INO), Y - INDIRECT INDEXED — THE SECOND BYTE OF THE INSTRUCTION POINTS TO A LOCA- 
TION IN PAGE ZERO. THE CONTENTS OF THIS MEMORY LCCATION IS ADOED TO THE Y 
INDEX, THE RESULT BEING THE LOW ORDER EIGHT BITS OF THE EA. THE CARRY 
FROM THIS OPERATION IS ADDED TO THE CONTENTS OF THE NEXT PAGE ZERO LOCA. 
TION, THE RESULTS BEING THE 8 HIGH ORDER BITS OF THE EA. 


Table A-4. 6502 Assembler Directives, Labels, and Special Characters 


ASSEMBLER DIRECTIVES 


e OPT — SPECIFIES OPTIONS FOR ASSEMBLY 
OPTIONS ARE: (OPTIONS LISTED FIRST ARE THE DEFAULT VALUES). 
NOC (COU OR CNT) — DO NOT LIST ALL INSTRUCTIONS AND THEIR USAGE. 
NOG (GEN) — DO NOT GENERATE MORE THAN ONE LINE OF CODE FOR ASCII STRINGS. 
XRE (NOX) — PRODUCE A CROSS-REFERENCE LIST IN THE SYMBOL TABLE. 
ERR (NOE) — CREATE AN ERROR FILE. 
MEM (NOM) — CREATE AN ASSEMBLER OBJECT OUTPUT FILE. 
LIS (NOL) — PRODUCE A FULL ASSEMBLY LISTING. 
BYTE — PRODUCES A SINGLE BYTE IN MEMORY EQUAL TO EACH OPERAND SPECIFIED. 
WORD - PRODUCES AN ADDRESS (2 BYTES) IN MEMORY EQUAL TO EACH OPERAND SPECIFIED. 
DBYTE — PRODUCES TWO BYTES IN MEMORY EQUAL TO EACH OPERAND SPECIFIED. 
SKIP — GENERATE THE NUMBER OF BLANK LINES SPECIFIED BY THE OPERAND. 
PAGE — ADVANCE THE LISTING TO THE TOP OF A NEW PAGE AND CHANGE TITLE. 
END — DEFINES THE END OF A SOURCE PROGRAM. 
* * — DEFINES THE BEGINNING OF A NEW PROGRAM COUNTER SEQUENCE. 


LABELS 


LABELS ARE THE FIRST FIELD АМО MUST BE FOLLOWED BY AT LEAST ONE SPACE OR A COLON (2 

LABELS CAN BE UP TO 6 ALPHANUMERIC CHARACTERS LONG AND MUST BEGIN WITH AN ALPHA 
CHARACTER. 

A,X, Y,S,P AND THE 56 OPCODES ARE RESERVED AND CANNOT BE USED AS LABELS. 

LABEL = EXPRESSION CAN BE USED TO EQUATE LABELS TO VALUES. 

LABEL °=° +N CAN BE USED TO RESERVE AREAS IN MEMORY. 


CHARACTERS USED AS SPECIAL PREFIXES: 


INDICATES AN ASSEMBLER DIRECTIVE 
SPECIFIES THE IMMEDIATE MODE OF ADORESSING 
SPECIFIES A HEXADECIMAL NUMBER 
SPECIFIES AN OCTAL NUMBER 
SPECIFIES A BINARY NUMBER 
SPECIFIES AN ASCII LITERAL CHARACTER 
() INDICATES INDIRECT ADORESSING 
; INDICATES FOLLOWING TEXT ARE COMMENTS 
< SPECIFIES LOWER HALF OF A 16 BIT VALUE 
> SPECIFIES UPPER HALF OF A 16 BIT VALUE 
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ADDRESS MEMORY 


LOW MEMORY 


SP AFTER IRQ OR NMI 
BUT BEFORE RTI 


SP BEFORE IRQ OR NMI 
AND AFTER RTI 


PC AT TIME OF IRQ OR 
ММ! THIS INSTRUCTION 
WILL COMPLETE BEFORE 
INTERRUPT IS SERVICED 
PC AFTER RTI 


INTERRUPT SERVICE 
MAIN BODY 


RETURN FROM 
INTERRUPT 


NMI VECTOR 
RESET VECTOR 


IRQ VECTOR 
< HIGH MEMORY 


Figure A-1. Response to IRQ and NMI Inputs and 
Operation of the RTI and BRK Instructions 


LOW MEMORY 
и 


ee== SP AFTER JSR BUT BEFORE 
RETURN (RTS) 


<4----- SP BEFORE JSR AND AFTER 
RETURN (RTS) FROM 
SUBROUTINE 


JUMP TO SUBROUTINE 


RETURN FROM SUBROUTINE TO 
THIS LOCATION 


SUBROUTINE MAIN 
BODY 


RETURN FROM SUBROUTINE 


eee HIGH MEMORY 


Figure A-2. Operation of the JSR and RTS Instructions 
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ГА) ACCUMULATOR A 
7 @ 
INDEX REGISTER Y 
7 9 
[ x | INDEX REGISTER x 
15 7 e 
| | PH | PCL PROGRAM COUNTER “PC” OR “P” 


7 0 
[м Ух в о| 2 с! PROCESSOR STATUS “P” OR “F” 


CARRY 1 = CARRY OR NO BORROW 
ZERO 1 = RESULT ZERO 
IRQ DISABLE 1 = DISABLE 


DECIMAL MODE 1 = DECIMAL, 0 = BINARY 
BRK COMMAND 1 ALWAYS | 


NOT USED 
OVERFLOW 1 = TRUE 
NEGATIVE 1 = NEGATIVE 


Figure A-3. Programming Model of the 6502 Microprocessor 


Appendix B Programming Reference 
for the 6522 Versatile 
Interface Adapter (VIA) 


Copyright 9 1982 Synertek, Inc. 
Reprinted by permission. 


SY6522 


Figure B-1. 6522 Pin Assignments 
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APPENDIX В. PROGRAMMING REFERENCE FORTHE 6522 МА 911 


TRO 
INTERRUPT 
CONTROL 
INPUT LATCH 
ENABLE BUFFERS ОУ SORTA 
(ЕВ) (PA) 
DATA DIR. 
DATA 
DATA (DDRA) 
BUS Воз 


BUFFERS 
PERIPHERAL 


AUXILIARY 
(АСА) 


FUNCTION 


CONTROL 
HANDSHAKE 
CONTROL 

LATCH LATCH 
(T1L-H) (T1L.L) | SHIFT REG. CB1 

(SR) св2 

COUNTER COUNTER 
(T1C-H) I (T1C-L) 
CHIP TIMER 1 PORT B REGISTERS 


ACCESS 
CONTROL TIMER 2 INPUT LATCH 


LATCH 

(T2L-L) 

COUNTER 
(T2C-L) 


BUFFERS 
(Z) (PB) аа В 


COUNTER | 
(T2CHM) 1 


DATA DIR. 
(рова! 


Figure B-2. Block Diagram of the 6522 Versatile Interface Adapter (VIA) 


Table B-1. 6522 Internal Registers 


i Description 
_[ m | ea 
ORB/IRB Output Register “В” Input Register “В” 


DDRA 


T1C-L T1 Low-Order Latches T1 Low-Order Counter 
T1C-H T1 High-Order Counter 
T1L-L T1 Low-Order Latches 


T1L-H T1 High-Order Latches 
T2 Low-Order Latches T2 Low-Order Counter 
T2 High-Order Counter 


PCR Peripheral Control Register 
Interrupt Flag Register 
Interrupt Enable Register 
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ЫСЫН В 


PBO 
PB1 


PB2 

OUTPUT REGISTER “B” (ORB) 
OR 

INPUT REGISTER “В” (ORB) 


PB3 
PB4 
PBS 
PB6 
PB7 


Pin 
Data Direction WRITE 
Selection 
DDRB = “1” (OUTPUT) | MPU writes Output Level | MPU reads output register bit 

(ORB) in ORB. Pin level has no affect. 
DDRB = “0” (INPUT) MPU writes into ORB, but | MPU reads input level on PB 

no effect on pin level, until | pin. 

DDRB changed. 


(Input latching disabled) 

MPU reads IRB bit, which is 
the level of the PB pin at the 
time of the last CB1 active 
transition. 


DDRB = "0" (INPUT) 
(Input latching enabled) 


Figure B-3. Output Register B and Input Register B (Register 0) 


(7 |e|s[«[s]2 [1]o] 
PAÓ 
PA1 
PA2 
UTPUT REGISTER "A" (ORA 
paal 9 (ORA) 
OR 
PA4| — INPUT REGISTER “A” (IRA) 
PAS 
PAG 


РА? 


Ріп 
Data Direction WRITE 
Selection 


DDRA = "1" (OUTPUT) | MPU writes Output Level | MPU reads leve! on PA pin. 
(Input latching disabled) | (ОВА). 
DDRA = “1” (OUTPUT) 
(Input latching enabled) 


DDRA = “0” (INPUT) 
(Input latching d'sabled) 


DDRA = "0" (INPUT) 
(Input latching enabled) 


MPU reads IRA bit which is 
the level of the PA pin at the 
time of the last CA1 active 

transition. 
MPU reads level on PA pin. 


MPU writes into ORA, but 
no effect on pin level, until 
DDRA changed. 


MPU reads IRA bit which is 
the level of the PA pin at the 
time of the last CA1 active 

transition. 


Figure B-4. Output Register А. and Input Register A (Register 1) 
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050989008 EN да 


Em PBO/PAO 256 

РВТ/РАТ 512 
PB2/PA2 1024 
PB3/PA3| DATA DIRECTION REGISTER 2048 | COUNT 
вварда| “В OR “A” (DDRB/DDRAJ ME VALUE 
PB5/PA5 8192 
PB6/PA6 16384 
PB7/PA7 32768 


"0" ASSOCIATED PB/PA PIN IS AN INPUT WRITE — 8 BITS LOADED INTO T1 HIGH-ORDER 
(HIGH-IMPEDANCE) LATCHES. ALSO, AT THIS TIME BOTH 
"1" ASSOCIATED PB/PA PIN IS AN OUTPUT, HIGH AND LOW-ORDER LATCHES 
WHOSE LEVEL IS DETERMINED BY TRANSFERRED INTO T1 COUNTER. 
ORB/ORA REGISTER BIT. T1 INTERRUPT FLAG ALSO IS RESET. 
READ — 8 BITS FROM T1 HIGH-ORDER COUNTER 
TRANSFERRED TO MPU. 
Figure B-5. Data Direction Registers B Figure B-7. Timer 1 High-Order Counter 
(Register 2) and A (Register 3) (Register 5) 
е [5 («зго 0000000 
e 2 
3 4 
тр COUNT 8 |_ COUNT 
jp | VALUE VALUE 
16 
32 = 
Е 64 
128 DT 
WRITE —8 BITS LOADED INTO T1 LOW-ORDER WRITE — 8 BITS LOADED INTO T1 LOW-ORDER 
LATCHES. LATCH CONTENTS ARE LATCHES. THIS OPERATION IS THE 
TRANSFERRED INTO LOW-ORDER SAME AS WRITING INTO 
COUNTER AT THE TIME THE HIGH- REGISTER 4. 


ORDER COUNTER IS LOADED (REG 5). READ — 8 BITS FROM T1 LOW-ORDER LATCHES 


READ — 8 BITS FROM T1 LOW-ORDER COUNTER TRANSFERRED TO MPU. UNLIKE REG 4 
TRANSFERRED TO MPU. IN ADDITION, OPERATION, THIS DOES NOT CAUSE 
T1 INTERRUPT FLAG IS RESET (BIT 6 RESET OF T1 INTERRUPT FLAG. 


IN INTERRUPT FLAG REGISTER). 


Figure B-6. Timer 1 Low-Order Counter Figure B-8. Timer 1 Low-Order Latches 
(Register 4) (Register 6) 
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ЖЫТ; 00000908 


| 256 
256 
512 
512 
1024 
1024 
2048 COUNT 
2048 | count m VALUE 
д096 | VALUE 
8192 
8192 
16384 
16384 
32768 
32768 
WRITE — 8 BITS LOADED INTO T1 HIGH-ORDER WRITE ~ 8 BiTS LOADED INTO T2 HIGH-ORDER 
LATCHES. UNLIKE REG 4 OPERATION COUNTER. ALSO, LOW-ORDER LATCHES 
NO LATCH-TO-COUNTER TRANSFERS TRANSFERRED TO LOW-ORDER 
TAKE PLACE. COUNTER. IN ADDITION, T2 INTERRUPT 
READ — 8 BITS FROM T1 HIGH-ORDER LATCHES FLAGIS RESET. 
TRANSFERRED TO MPU. READ- 8ВІТ5 FROM T2 HIGH-ORDER COUNTER 
TRANSFERRED TO MPU. 
Figure B-9. Timer 1 High-Order Latches Figure B-11. Timer 2 High-Order Counter 
(Register 7) (Register 9) 


ЖЕ PPEP | 
x | 


2 
4 
8 COUNT SHIFT 
VALUE REGISTER 
16 BITS 
32 
64 
128 
WRITE — 8 BITS LOADED INTO T2 LOW-ORDER NOTES: 
LATCHES. 1. WHEN SHIFTING OUT. ВІТ 7 IS THE FIRST BIT 
READ — 8 BITS FROM T2 LOW-ORDER COUNTER OUT AND SIMULTANEOUSLY IS ROTATED BACK 
TRANSFERRED TO MPU. T2 INTERRUPT INTO BIT 0. 
FLAG IS RESET. 2. WHEN SHIFTING IN, BITS INITIALLY ENTER 
BIT 0 AND ARE SHIFTED TOWARDS BIT 7. 
Figure B-10. Timer 2 Low-Order Counter Figure B-12. Shift Register 


(Register 8) (Register 10) 
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El]: 


T1 TIMER ан ски са 
7 |6 | OPERATION 

TIMED INTERRUPT 

EACH TIME Т1 IS 

LOADED DISABLED 

CONTINUOUS 

INTERRUPTS 

TIMED INTERRUPT | ONE-SHOT 

EACH TIME 71 1$ | OUTPUT 

LOADED 


CONTINUOUS SQUARE 
INTERRUPTS WAVE 
OUTPUT 


T2 TIMER CONTROL 


| 5| OPERATION 
| 0| TIMED INTERRUPT 


COUNT DOWN WITH 
PULSES ON PB6 


PA — LATCH ENABLE/DISABLE 


PB 0 = DISABLE 
1 = ENABLE LATCHING 


SHIFT REGISTER CONTROL 


|j|s|2]OPERATION S | 


0100 | DISABLED 
0011 | SHIFT IN UNDER CONTROL OF T2 


0| 1[O|SHIFT IN UNDER CONTROL OF$2  — 
(0| 1| | SHIFT IN UNDER CONTROL OF EXT. CLK 
11|0|0)5НІҒТ OUT FREE-RUNNING AT T2 RATE 
1 [0 [1 | ЅНІҒТ OUT UNDER CONTROL OF T2 — | 


1111/0] SHIFT OUT UNDER CONTROL OF $2 
[1] 311 | SHIFT OUT UNDER CONTROL OF EXT. CLK. 


Figure B-13. Auxiliary Control Register (Register 11) 
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CB1 INTERRUPT CONTROL 


0 = NEGATIVE ACTIVE EDGE 
1 = POSITIVE ACTIVE EDGE 


Figure B-14. Peripheral Control Register (Register 12) 
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SET BY CLEARED BY 
CA2 ACTIVE EDGE READ OR WRITE 
REG 1 (ORA) 
CA1 ACTIVE EDGE READ OR WRITE 
REG 1 (ORA) 
COMPLETE 8 SHIFTS | READ OR WRITE 
SHIFT REG 


B2 ACTIVE EDGE READ OR WRITE ORB 
DB1 ACTIVE EDGE READ OR WRITE ORB 


WRITE T2 HIGH 
WRITE T1 HIGH 
INTERRUPT INTERRUPTS 


CA1 


SHIFT REG 


о 


Figure В-15. Interrupt Flag Register (Register 13) 


= CA2 
| СА1 
SHIFT REG 
CB2 0 = INTERRUPT DISABLED 
CB1 1= INTERRUPT ENABLED 
TIMER 2 
TIMER 1 
SET/CLEAR 


NOTES: 

1. IF ВІТ 7 IS А "0", THEN EACH “1” IN BITS 0 - 6 DISABLES THE 
CORRESPONDING INTERRUPT. 

2. IF BIT 7 IS A "1", THEN EACH "1" IN BITS 0 - 6 ENABLES THE 
CORRESPONDING INTERRUPT. 

3. IF A READ OF THIS REGISTER IS DONE, BIT 7 WILL BE “1” AND 
ALL OTHER BITS WILL REFLECT THEIR ENABLE/DISABLE STATE. 


Figure B-16. Interrupt Enable Register (Register 14) 


Appendix C ASCII Character Set 


Copyright 9 1982 Synertek, Inc. 
Reprinted by permission. 
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Glossary 


A 


Absolute address. An address that identifies a storage location or a device without 
the use of a base, offset, or other factor. See also Effective address, Relative 
offset. 


Absolute addressing. An addressing mode in which the instruction contains the 
actual address required for its execution. In 6502 terminology, absolute 
addressing refers to a type of direct addressing in which the instruction con- 
tains a full 16-bit address as opposed to zero page addressing in which the 
instruction contains only an 8-bit address on page 0. 


Absolute indexed addressing. & form of indexed addressing in which the instruc- 
tion contains a full 16-bit base address. 


Accumulator. A register that is the implied source of one operand and the destina- 
tion of the result for most arithmetic and logic operations. 


ACIA (Asynchronous Communications Interface Adapter). A serial interface 
device. Common ACIAs in 6502-based computers are the 6551 and 6850 
devices. See also UART. 


Active transition (in a PIA or VIA). The edge on the control line that sets an Inter- 
rupt flag. The alternatives are a negative edge (1 to 0 transition) or a positive 
edge (0 to 1 transition). 


Address. The identification code that distinguishes one memory location or input/ 
output port from another and that can be used to select a specific one. 


Addressing modes. The methods for specifying the addresses to be used in execut- 
ing an instruction. Common addressing modes are direct, immediate, indexed, 
indirect, and relative. 
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Address register. A register that contains a memory address. 


Address space. The total range of addresses to which a particular computer may 
refer. 


ALU. See Arithmetic-logic unit. 


Arithmetic-logic unit (ALU). A device that can perform any of a variety of 
arithmetic or logical functions; function inputs select which function is per- 
formed during a particular cycle. 


Arithmetic shift. A shift operation that preserves the value of the sign bit (most 
significant bit). In a right shift, this results in the sign bit being copied into the 
succeeding bit positions (called sign extension). 


Arm. See Enable, but most often applied to interrupts. 


Array. A collection of related data items, usually stored in consecutive memory 
addresses. 


ASCII (American Standard Code for Information Interchange). A 7-bit character 
code widely used in computers and communications. 


Assembler. A computer program that converts assembly language programs into a 
form (machine language) that the computer can execute directly. The assem- 
bler translates mnemonic operation codes and names into their numerical 
equivalents and assigns locations in memory to data and instructions. 


Assembly language. A computer language in which the programmer can use 
mnemonic operation codes, labels, and names to refer to their numerical 
equivalents. 


Asynchronous. Operating without reference to an overall timing source, that is, at 
irregular intervals. 


Autodecrementing. The automatic decrementing of an address register as part of 
the execution of an instruction that uses it. 


Autoincrementing. The automatic incrementing of an address register as part of the 
execution of an instruction that uses it. 


Automatic mode (of a peripheral chip). An operating mode in which the peripheral 
chip produces control signals automatically without specific program interven- 
tion. 


Base address. The address in memory at which an array or table starts. Also called 
starting address or base. 
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Baud. A measure of the rate at which serial data is transmitted, bits per second, 
but including both data bits and bits used for synchronization, error checking, 
and other purposes. Common baud rates are 110, 300, 1200, 2400, 4800, and 
9600. 


Baud rate generator. A device that generates the proper time intervals between | 
bits for serial data transmission. 


BCD (Binary-Coded Decimal). A representation of decimal numbers in which 
each decimal digit is coded separately into a binary number. 


Bidirectional. Capable of transporting signals in either direction. 
Binary-coded decimal. See BCD. 


Binary search. A search in which the set of items to be searched is divided into two 
equal (or nearly equal) parts during each iteration. The part containing the 
item being sought is then determined and used as the set in the next iteration. 
A binary search thus halves the size of the set being searched with each itera- 
tion. This method obviously assumes the set of items is ordered. 


Bit test. An operation that determines whether a bit is 0 or 1. Usually refers to a 
logical AND operation with an appropriate mask. 


Block. An entire group or section, such as a set of registers or a section of 
memory. 


Block comparison (or block compare). A search that extends through a block of 
memory until either the item being sought is found or the entire block is 
examined. 


Block move. Moving an entire set of data from one area of memory to another. 


Boolean variable. A variable that has only two possible values, which may be 
represented as true and false or as 1 and 0. See also Flag. 


Borrow. A bit which is set to 1 if a subtraction produces a negative result and to 0 
if it produces a positive or zero result. The borrow is used commonly to 
subtract numbers that are too long to be handled in a single operation. 


Bounce. To move back and forth between states before reaching a final state. 
Branch instruction. See Jump instruction. 
Break instruction. See Trap. 


Breakpoint. A condition specified by the user under which program execution is 
to end temporarily. Breakpoints are used as an aid in debugging. The specifica- 
tion of the conditions under which execution will end is referred to as setting 
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breakpoints and the deactivation of those conditions is referred to as clearing 
breakpoints. 


BSC (Binary Synchronous Communications or BISYNC). An older line protocol 
often used by IBM computers and terminals. 


Bubble sort. A sorting technique which goes through an array exchanging each 
pair of elements that are out of order. 


Buffer. Temporary storage area generally used to hold data before it is transferred 
to its final destination. 


Buffer empty. A signal that is active when any data entered into a buffer or register 
has been transferred to its final destination. 


Buffer full. A signal that is active when a buffer or register is completely occupied 
with data that has not been transferred to its final destination. 


Buffer index. The index of the next available address in a buffer. 


Buffer pointer. A storage location that contains the next available address in a 
buffer. 


Bug. An error or flaw. 


Byte. A unit of eight bits. May be described as consisting of a high nibble or digit 
(the four most significant bits) and a low nibble or digit (the four least signifi- 
cant bits). 


Byte-length. A length of eight bits per item. 


C 


Call (a subroutine). Transfers control to the subroutine while retaining the infor- 
mation required to resume the current program. A call differs from a jump or 
branch in that a call retains information concerning its origin, whereas a jump 
or branch does not. 


Carry. A bit that is 1 if an addition overflows into the succeeding digit position. 


Carry flag. A flag that is 1 if the last operation generated a carry from the most sig- 
nificant bit and O if it did not. 


CASE statement. A statement in a high-level computer language that directs the 
computer to perform one of several subprograms, depending on the value of a 
variable. That is, the computer performs the first subprogram if the variable 
has the first value specified, etc. The computed GO TO statement serves a 
similar function in FORTRAN. 
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Central processing unit (CPU). The control section of the computer which controls 
its operations, fetches and executes instructions, and performs arithmetic and 
logical functions. 


Checksum. A logical sum that is included in a block of data to guard against 
recording or transmission errors. Also referred to as longitudinal parity or 
longitudinal redundancy check (LRC). 


Circular shift. See Rotate. 


Cleaning the stack. Removing unwanted items from the stack, usually by adjust- 
ing the stack pointer. 


Clear. Set to zero. 
Clock. A regular timing signal that governs transitions in a system. 


Close (a file). To make a file inactive. The final contents of the file are the last 
information the user stored in it. The user must generally close a file after 
working with it. 


Coding. Writing instructions in a computer language. 
Combo chip. See Multifunction device. 
Command register. See Control register. 


Comment. A section of a program that has no function other than documentation. 
Comments are neither translated nor executed, but are simply copied into the 
program listing. 


Complement. Invert; see also one's complement, two's complement. 


Concatenation. Linking together, chaining, or uniting in a series. In string opera- 
tions, placing of one string after another. 


Condition code. See Flag. 


Control (command) register. A register whose contents determine the state of a 
transfer or the operating mode of a device. 


Control signal. A signal that directs an I/O transfer or changes the operating mode 
of a peripheral. 


Cyclic redundancy check (CRC). An error-detecting code generated from a 
polynomial that can be added to a block of data or a storage area. 
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D 


Data accepted. A signal that is active when the most recent data has been trans- 
ferred successfully. 


Data direction register. A register that determines whether bidirectional I/O lines 
are being used as inputs or outputs. Abbreviated as DDR in some diagrams. 


Data-link control. A set of conventions governing the format and timing of data 
exchange between communicating systems. Also called a protocol. 


Data ready. A signal that is active when new data is available to the receiver. Same 
as valid data. 


Data register. In a PIA or VIA, the actual input/output port. Also called an output 
register or a peripheral register. 


DDCMP (Digital Data Communications Message Protocol). A widely used pro- 
tocol that supports any method of physical data transfer (synchronous or 
asynchronous, serial or parallel). 


Debounce. Convert the output from a contact with bounce into a single, clean 
transition between states. Debouncing is most commonly applied to outputs 
from mechanical keys or switches which bounce back and forth before settling 
into their final positions. 


Debounce time. The amount of time required to debounce a change of state. 


Debugger. A program that helps in locating and correcting errors in a user pro- 
gram. Some versions are referred to as dynamic debugging tools or DDT after 
the famous insecticide. 


Debugging. The process of locating and correcting errors in a program. 
Device address. The address of a port associated with an input or output device. 


Diagnostic. A program that checks the operation of a device and reports its find- 
ings. | 

Digit shift. A shift of one BCD digit position or four bit positions. 

Direct addressing. An addressing mode in which the instruction contains the 
address required for its execution. The 6502 microprocessor has two types of 
direct addressing: zero page addressing (requiring only an 8-bit address on 


page 0) and absolute addressing (requiring a full 16-bit address in two bytes of 
memory). 


Disarm. See Disable, but most often applied to interrupts. 
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Disable (or disarm). Prohibit an activity from proceeding or a signal (such as an 
interrupt) from being recognized. 


Double word. A unit of 32 bits. 


Driver. See 1/O driver. 


Dump. A facility that displays the contents of an entire section of memory or 
group of registers on an output device. 


Dynamic allocation (of memory). The allocation of memory for a subprogram 
from whatever is available when the subprogram is called. This is as opposed to 
the static allocation of a fixed area of storage to each subprogram. Dynamic 
allocation often reduces memory usage because subprograms can share areas; 
it does, however, generally require additional execution time and overhead 
spent in memory management. 


EBCDIC (Expanded Binary-Coded Decimal Interchange Code). An 8-bit 
character code often used in large computers. 


Echo. Reflects transmitted information back to the transmitter; sends back to a 
terminal the information received from it. 


Editor. A program that manipulates text material and allows the user to make cor- 
rections, additions, deletions, and other changes. 


Effective address. The actual address used by an instruction to fetch or store data. 


EIA RS-232. See RS-232. 


Enable (or arm). Allows an activity to proceed or a signal (such as an interrupt) to 
be recognized. 


Endless loop or jump-to-self instruction. An instruction that transfers control to 
itself, thus executing indefinitely (or until a hardware signal interrupts it). 


Error-correcting code. A code that the receiver can use to correct errors in 
messages; the code itself does not contain any additional message. 


Error-detecting code. A code that the receiver can use to detect errors in messages; 
the code itself does not contain any additional message. 


Even parity. A 1-bit error-detecting code that makes the total number of 1 bits in a 
unit of data (including the parity bit) even. 
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EXCLUSIVE OR function. A logical function that is true if either of its inputs is 
true but not both. It is thus true if its inputs are not equal (that is, if one of 
them is a logic 1 and the other is a logic 0). 


External reference. The use in a program of a name that is defined in another pro- 
gram. 


F 
F (flag) register. See Processor status register. 


File. A collection of related information that is treated as a unit for purposes of 
storage or retrieval. 


Fill. Placing values in storage areas not previously in use, initializing memory or 
storage. 


Flag (or condition code or status bit). A single bit that indicates a condition within 
the computer, often used to choose between alternative instruction sequences. 


Flag (software). An indicator that is either on (1) or off (0) and can be used to 
select between two alternative courses of action. Boolean variable and 
semaphore are other terms with the same meaning. 


Flag register. See Processor status register. 


Free-running mode. An operating mode for a timer in which it indicates the end of 
a time interval and then starts another of the same length. Also referred to as a 
continuous mode. 


Function key. A key that causes a system to perform a function (such as clearing 
the screen of a video terminal) or execute a procedure. 


G 


Global. This is a universal variable. Defined in more than one section of a com- 
puter program, rather than used only locally. 


H 


Handshake. An asynchronous transfer in which 'sender and receiver exchange 
predetermined signals to establish synchronization and to indicate the status of 
the data transfer. Typically, the sender indicates that new data is available and 
the receiver reads the data and indicates that it is ready for more. 
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Hardware stack. A stack that the computer automatically manages when execut- 
ing instructions that use it. 


Head (of a queue). The location of the item most recently entered into the queue. 
Header, queue. See Queue header. 


Hexadecimal (or hex). Number system with base 16. The digits are the decimal 
numbers 0 through 9, followed by the letters A through F. 


Hex code. See Object code. 


High-level language. A programming language that is aimed toward the solution of 
problems, rather than being designed for convenient conversion into com- 
puter instructions. A compiler or interpreter translates a program written in a 
high-level language into a form that the computer can execute. Common high- 
level languages include BASIC, COBOL, FORTRAN, and Pascal. 


Immediate addressing. An addressing mode in which the data required by an 
instruction is part of the instruction. The data immediately follows the opera- 
tion code in memory. 


Independent mode (of a parallel interface). An operating mode in which the status 
and control signals associated with a parallel I/O port can be used indepen- 
dently of data transfers through the port. 


Index. A data item used to identify a particular element of an array or table. 


Indexed addressing. An addressing mode in which the address is modified by the 
contents of an index register to determine the effective address (the actual 
address used). 


Indexed indirect addressing. An addressing mode in which the effective address is 
determined by indexing from the base address and then using the indexed 
address indirectly. This is also known as preindexing, since the indexing is per- 
formed before the indirection. Of course, the array starting at the given base 
address must consist of addresses that can be used indirectly. 


Index register. A register that can be used to modify memory addresses. 


Indirect addressing. An addressing mode in which the effective address is the con- 
tents of the address included in the instruction, rather than the address itself. 


Indirect indexed addressing. An addressing mode in which the effective address is 
determined by first obtaining the base address indirectly and then indexing 
from that base address. Also known as postindexing, since the indexing i is per- 
formed after the indirection. 
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Indirect jump. A jump instruction that transfers control to the address stored in a 
register or memory location, rather than to a fixed address. 


Input/output control block (IOCB). A group of storage locations that contain the 
information required to control the operation of an I/O device. Typically 
included in the information are the addresses of routines that perform opera- 
tions such as transferring a single unit of data or determining device status. 


Input/output control system (IOCS). A set of computer routines that control the 
performance of I/O operations. 


Instruction. A group of bits that defines a computer operation and is part of the 
instruction set. 


Instruction cycle. The process of fetching, decoding, and executing an instruction. 


Instruction execution time. The time required to fetch, decode, and execute an 
instruction. 


Instruction fetch. The process of addressing memory and reading an instruction 
into the CPU for decoding and execution. 


Instruction length. The amount of memory needed to store a complete instruction. 


Instruction set. The set of general-purpose instructions available on a given com- 
puter. The set of inputs to which the CPU will produce a known response when 
they are fetched, decoded, and executed. 


Interpolation. Estimating values of a function at points between those at which the 
values are already known. 


Interrupt. A signal that temporarily suspends the computer's normal sequence of 
operations and transfers control to a special routine. 


Interrupt-driven. Dependent on interrupts for its operation, may idle until it 
receives an interrupt. 


Interrupt flag. A bit in the input/output section that is set when an event occurs 
that requires servicing by the CPU. Typical events include an active transition 
on a control line and the exhaustion of a count by a timer. 


Interrupt mask (or interrupt enable). A bit that determines whether interrupts will 
be recognized. A mask or disable bit must be cleared to allow interrupts, 
whereas an enable bit must be set. 


Interrupt request. A signal that is active when a peripheral is requesting service, 
often used to cause a CPU interrupt. See also Interrupt flag. 


Interrupt service routine. A program that performs the actions required to respond 
to an interrupt. 
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Inverted borrow. A bit which is set to 0 if a subtraction produces a negative result 
and to 1 if it produces a positive or 0 result. An inverted borrow can be used 
like a true borrow, except that the complement of its value (i.e., 1 minus its 
value) must be used in the extension to longer numbers. 


IOCB. See Input/output control block. 
IOCS. See Input/output control system. 


1/0 device table. A table that establishes the correspondence between the logical 
devices to which programs refer and the physical devices that are actually used 
in data transfers. An I/O device table must be placed in memory in order to run 
a program that refers to logical devices on a computer with a particular set of 
actual (physical) devices. The I/O device table may, for example, contain the 
starting addresses of the I/O drivers that handle the various devices. 


I/O driver. A computer program that transfers data to or from an I/O device, also 
called a driver or 1/0 utility. The driver must perform initialization functions 
and handle status and control, as well as physically transfer the actual data. 


J 


Jump instruction (or Branch instruction). An instruction that places a new value in 
the program counter, thus departing from the normal one-step incrementing. 
Jump instructions may be conditional; that is, the new value may be placed in 
the program counter only if a condition holds. 


Jump table. A table consisting of the starting addresses of executable routines, 
used to transfer control to one of them. 


L 


Label. A name attached to an instruction or statement in a program that identifies 
the location in memory of the machine language code or assignment produced 
from that instruction or statement. 


Latch. A device that retains its contents until new data is specifically entered into 
it. 


Leading edge (of a binary pulse). The edge that marks the beginning of a pulse. 


Least significant bit. The rightmost bit in a group of bits, that is, bit 0 of a byte or a 
16-bit word. 


Library program. A program that is part of a collection of programs and is written 
and documented according to a standard format. 
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LIFO (last-in, first-out) memory. A memory that is organized according to the 
order in which elements are entered and from which elements can be retrieved 
only in the order opposite from that in which they were entered. See also Stack. 


Linearization. The mathematical approximation of a function by a straight line 
between two points at which its values are known. 


Linked list. A list in which each item contains a pointer (or /ink) to the next item. 
Also called a chain or chained list. 


List. An ordered set of items. 


Logical device. The input or output device to which a program refers. The actual 
or physical device is determined by looking up the logical device in an I/O 
device table — a table containing actual I/O addresses (or starting addresses 
for I/O drivers) corresponding to the logical device numbers. 


Logical shift. A shift operation that moves zeros in at the end as the original data is 
shifted. 


Longitudinal parity. See Checksum. 


Logical sum. A binary sum with no carries between bit positions. See also 
Checksum, EXCLUSIVE OR function. 


Longitudinal redundancy check (LRC). See Checksum. 


Lookup table. An array of data organized so that the answer to a problem may be 
determined merely by selecting the correct entry (without any calculations). 


Low-level language. A computer language in which each statement is translated 
directly into a single machine language instruction. 


Machine language. The programming language that the computer can execute 
directly with no translation other than numeric conversions. 


Maintenance (of programs). Updating and correcting computer programs that are 
in use. 


Majority logic. A combinational logic function that is true when more than half the 
inputs are true. 


Manual mode (of a peripheral chip). An operating mode in which the chip pro- 
duces control signals only when specifically directed to do so by a program. 


Mark. The 1 state on a serial data communications line. 


Mask. A bit pattern that isolates one or more bits from a group of bits. 
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Maskable interrupt. An interrupt that the system can disable. 


Memory capacity. The total number of different memory addresses (usually 
specified in terms of bytes) that can be attached to a particular computer. 


Microcomputer. A computer that has a microprocessor as its central processing 
unit. 


Microprocessor. A complete central processing unit for a computer constructed 
from one or a few integrated circuits. 


Mnemonic. A memory jogger, a name that suggests the actual meaning or purpose 
of the object to which it refers. 


Modem (Modulator/demodulator). A device that adds or removes a carrier fre- 
quency, thereby allowing data to be transmitted on a high-frequency channel 
or received from such a channel. 


Modular programming. A programming method whereby the overall program is 
divided into logically separate sections or modules. 


Module. A part or section of a program. 


Monitor. A program that allows the computer user to enter programs and data, 
run programs, examine the contents of the computer's memory and registers, 
and utilize the computer's peripherals. See also Operating system. 


Most significant bit. The leftmost bit in a group of bits, that is, bit 7 of a byte or bit 
15 of a 16-bit word. 


Multifunction device. A device that performs more than one function in a com- 
puter system; the term commonly refers to devices containing memory, input/ 
output ports, timers, etc., such as the 6530, 6531, and 6532 devices. 


Multitasking. Used to execute many tasks during a single period of time, usually 
by working on each one for a specified part of the period and suspending tasks 
that must wait for input, output, the completion of other tasks, or external 
events. 


Murphy's Law. The famous maxim that **whatever сап go wrong, will." 


N 
Negate. Finds the two's complement (negative) of a number. 
Negative edge (of a binary pulse). A 1-to-0 transition. 


Negative flag. See Sign flag. 
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Negative logic. Circuitry in which a logic zero is the active or ON state. 


Nesting. Constructing programs in a hierarchical manner with one level contained 
within another, and so forth. The nesting level is the number of transfers of 
control required to reach a particular part of a program without ever returning 
to a higher level. 


Nibble (or nybble). A unit of four bits. A byte (eight bits) may be described as 
consisting of a high nibble (four most significant bits) and a low nibble (four 
least significant bits). 


Nine's complement. The result of subtracting a decimal number from a number 
having nines in each digit position. 


Nonmaskable interrupt. An interrupt that cannot be disabled within the CPU. 
Nonvolatile memory. A memory that retains its contents when power is removed. 


No-op (or no operation). An instruction that does nothing other than increment 
the program counter. 


Normalization (of numbers). Adjusting a number into a regular or standard for- 
mat. A typical example is the scaling of a binary fraction so that its most signifi- 
cant bit is 1. | 


О 


Object code (or object program). The program that is the output of a translator 
program, such as an assembler. Usually it is a machine language program ready 
for execution. | 


Odd parity. A 1-bit error-detecting code that makes the total number of 1 bits in a 
unit of data (including the parity bit) odd. 


Offset. Distance from a starting point or base address. 


One's complement. A bit-by-bit logical complement of a number, obtained by re- 
placing each 0 bit with a 1 and each 1 bit with a 0. 


One-shot. A device that produces a pulse output of known duration in response to 
a pulse input. A timer operates in a one-shot mode when it indicates the end of a 
single interval of known duration. 


Open (afile). Make a file ready for use. The user generally must open a file before 
working with it. 


Operating system (OS). A computer program that controls the overall operations 
of a computer and performs such functions as assigning places in memory to 


cLossav 933 


programs and data, scheduling the execution of programs, processing inter- 
rupts, and controlling the overall input/output system. Also known as a moni- 
tor, executive, or master-control program, although the term monitor is 
usually reserved for a simple operating system with limited functions. 


Operation code (op code). The part of an instruction that specifies the operation to 
be performed. 


OS. See Operating system. 


Output register. In a PIA or VIA, the actual input/output port. Also called a data 
register or a peripheral register. 


Overflow (of a stack). Exceeding the amount of memory allocated to a stack. 


Overflow, two's complement. See Two's complement overflow. 


P 


P register. See Processor status register, Program counter. Most 6502 reference 
material abbreviates program counter as PC and processor status register as P, 
but some refer to the program counter as P and the processor status (flag) 
register as F. 


Packed decimal. A binary-coded decimal format in which each 8-bit byte contains 
two decimal digits. 


Page. A subdivision of the memory. In 6502 terminology, a page is a 256-byte 
section of memory in which all addresses have the same eight most significant 
bits (or page number). For example, page C6 consists of memory addresses 
C600 through C6FF. 


Paged address. The identifier that characterizes a particular memory address on a 
known page. In 6502 terminology, this is the eight least significant bits of a 
memory address. 


Page number. The identifier that characterizes a particular page of memory. In 
6502 terminology, this is the eight most significant bits of a memory address. 


Page 0. In 6502 terminology, the lowest 256 addresses in memory (addresses 
0000 through 00ЕЕ). 


Parallel interface. An interface between a CPU and input or output devices that 
handle data in parallel (more than one bit at a time). 


Parameter. An item that must be provided to a subroutine or program in order for 
it to be executed. 


534 6502 ASSEMBLY LANGUAGE SUBROUTINES 


Parity. A 1-bit error-detecting code that makes the total number of 1 bits in a unit 
of data, including the parity bit, odd (odd parity) or even (even parity). Also 
called vertical parity or vertical redundancy check (VRC). 


Passing parameters. Making the required parameters available to a subroutine. 


Peripheral Interface. One of the 6500 family versions of a parallel interface; exam- 
ples are the 6520, 6522, 6530, and 6532 devices. 


Peripheral ready. A signal that is active when a peripheral can accept more data. 


Peripheral register. In a PIA or VIA, the actual input or output port. Also called a 
data register or an output register. 


Physical device. An actual input or output device, as opposed to a logical device. 


PIA. (Peripheral Interface Adapter). The common name for the 6520 or 6820 
device which consists of two bidirectional 8-bit I/O ports, two status lines, and 
two bidirectional status or control lines. The 6821 is a similar device. 


Pointer. A storage place that contains the address of a data item rather than the 
item itself. A pointer tells where the item is located. 


Polling. Determining which I/O devices are ready by examining the status of one 
device at a time. 


Polling interrupt system. An interrupt system in which a program determines the 
source of a particular interrupt by examining the status of potential sources 
one at a time. 


Pop. Removes an operand from a stack. 

Port. The basic addressable unit of the computer's input/output section. 
Positive edge (of a binary pulse). A 0-to-1 transition. 

Postdecrementing. Decrementing an address register after using it. 
Postincrementing. Incrementing an address register after using it. 
Postindexing. See Indirect indexed addressing. 


Power fail interrupt. An interrupt that informs the CPU of an impending loss of 
power. 


Predecrementing. Decrements an address register before using it. 
Preincrementing. Increments an address register before using it. 


Preindexing. See Indexed indirect addressing. 
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Priority interrupt system. An interrupt system in which some interrupts have prece- 
dence over others, that is, they will be serviced first or can interrupt the 
others’ service routines. 


Processor status (P or F) register. A register that defines the current state of a com- 
puter, often containing various bits indicating internal conditions. Other 
names for this register include condition code register, flag (F) register, status 
register, and status word. 


Program counter (PC or P register). A register that contains the address of the 
next instruction to be fetched from memory. 


Programmable I/O device. An I/O device that can have its mode of operation 
determined by loading registers under program control. 


Programmable peripheral chip. A chip that can operate in a variety of modes; its 
current operating mode is determined by loading control registers under pro- 
gram control. 


Programmable timer. A device that can handle a variety of timing tasks, including 
the generation of delays, under program control. 


Program relative addressing. A form of relative addressing in which the base 
address is the program counter. Use of this form of addressing makes it easy to 
move programs from one place in memory to another. 


Programmed input/output. Input or output performed under program control with- 
out using interrupts or other special hardware techniques. 


Protocol. See Data-link control. 


Pseudo-operation (or pseudo-op or pseudo-instruction). An assembly language 
operation code that directs the assembler to perform some action but does not 
result in the generation of a machine language instruction. 


Pull. Removes an operand from a stack, same as pop. 


Push. Stores an operand in a stack. 


Q 


Queue. A set of tasks, storage addresses, or other items that are used in a first-in, 
first-out manner; that is, the first item entered in the queue is the first to be 
removed. 


Queue header. A set of storage locations describing the current location and status 
of a queue. | 
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R 
RAM. See Random-access memory. 


Random-access memory (RAM). A memory that can be both read and altered 
(written) in normal operation. | 


Read-only memory (ROM). A memory that can be read but not altered in normal 
operation. 


Ready for data. A signal that is active when the receiver can accept more data. 
Real-time. In synchronization with the actual occurrence of events. 
Real-time clock. A device that interrupts a CPU at regular time intervals. 


Real-time operating system. An operating system that can act as a supervisor for 
programs that have real-time requirements. May also be referred to as a real- 
time executive or real-time monitor. 


Reentrant. A program or routine that can be executed concurrently while the 
same routine is being interrupted or otherwise held in abeyance. 


Register. A storage location inside the CPU. 


Relative addressing. An addressing mode in which the address specified in the 
instruction is the offset from a base address. 


Relative offset. The difference between the actual address to be used in an instruc- 
tion and the current value of the program counter. 


Relocatable. Can be placed anywhere in memory without changes; that is, a pro- 
gram that can occupy any set of consecutive memory addresses. 


Return (from a subroutine). Transfers control back to the program that originally 
called the subroutine and resumes its execution. 


RIOT. (ROM/I/O/timer or RAM/I/O/timer). A device containing memory 
(ROM or RAM), I/O ports, and timers. 


ROM. See Read-only memory. 


Rotate. A shift operation that treats the data as if it were arranged in a circle, that 
is, as if the most significant and least significant bits were connected either 
directly or through a Carry bit. 


Row major order. Storing elements of a multidimensional array in a linear 
memory by changing the indexes starting with the rightmost first. That is, if 
the elements are A(I,J,K) and begin with A(0,0,0), the order is A(0,0,0), 
A(0,0,1), ...,A(0,1,0), A(0,1,1),... The opposite technique (change leftmost 
index first) is called column major order. 
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RRIOT. ROM/RAM/I/O/timer, a device containing read-only memory, read/ 
write memory, I/O ports, and timers. i 


RS-232 (or EIA RS-232). A standard interface for the transmission of serial 
digital data, sponsored by the Electronic Industries Association of Washing- 
ton, D.C. It has been partially superseded by RS-449. 


S 


Scheduler. A program that determines when other programs should be started and 
terminated. 


Scratchpad. An area of memory that is especially easy and quick to use for storing 
variable data or intermediate results. Page 0 is generally used as a scratchpad in 
6502-based computers. 


SDLC (Synchronous Data Link Control). The successor protocol to BSC for IBM | 
computers and terminals. 

Semaphore. See Flag. 

Serial. One bit at a time. 


Serial interface. An interface between a CPU and input or output devices that han- 
dle data serially. Serial interfaces commonly used in 6502-based computers are 
the 6551 and 6850 devices. See also UART. 


Shift instruction. An instruction that moves all the bits of the data by a certain 
number of bit positions, just as in a shift register. 


Signed number. A number in which one or more bits represent whether the num- 
ber is positive or negative. A common format is for the most significant bit to 
represent the sign (0 — positive, 1 — negative). 


Sign extension. The process of copying the sign (most significant) bit to the right 
as in an arithmetic shift. Sign extension preserves the sign when two's comple- 
ment numbers are being divided or normalized. 


Sign flag. A flag that contains the most significant bit of the result of the previous 
operation. It is sometimes called a negative flag, since a value of 1 indicates a 
negative signed number. | 


Sign function. A function that is 0 if its parameter is positive and 1 if its parameter 
is negative. 


Software delay. A program that has no function other than to waste time. 


Software interrupt. See Trap. 
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Software stack. A stack that is managed by means of specific instructions, as 
opposed to a hardware stack which the computer manages automatically. 


Source code (or source program). A computer program written in assembly 
language or in a high-level language. 


Space. The zero state on a serial data communications line. 


Stack. A section of memory that can be accessed only in a last-in, first-out man- 
ner. That is, data can be added to or removed from the stack only through its 
top; new data is placed above the old data and the removal of a data item makes 
the item below it the new top. 


Stack pointer. A register that contains the address of the top of a stack. The 6502's 
stack pointer contains the address on page 1 of the next available (empty) 
stack location. 


Standard (or 8,4,2,1) BCD. A BCD representation in which the bit positions have 
the same weights as in ordinary binary numbers. 


Standard teletypewriter. A teletypewriter that operates asynchronously at a rate of 
ten characters per second. 


Start bit. A 1-bit signal that indicates the start of data transmission by an 
asynchronous device. 


Static allocation (of memory). Assignment of fixed storage areas for data and pro- 
grams, as opposed to dynamic allocation in which storage areas are assigned at 
the time when they are needed. 


Status register. A register whose contents indicate the current state or operating 
mode of a device. See also Processor status register. 


Status signal. A signal that describes the current state of a transfer or the operating 
mode of a device. 


Stop bit. A 1-bit signal that indicates the end of data transmission by an 
asynchronous device. 


String. An array (set of data) consisting of characters. 


String functions. Procedures that allow the programmer to operate on data consist- 
ing of characters rather than numbers. Typical functions are insertion, dele- 
tion, concatenation, search, and replacement. 


Strobe. A signal that identifies or describes another set of signals and that can be 
used to control a buffer, latch, or register. 
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Subroutine. A subprogram that can be executed (called) from more than one 
place in a main program. 


Subroutine call. The process whereby a computer transfers control from its current 
program to a subroutine while retaining the information required to resume 
the current program. 


Subroutine linkage. The mechanism whereby a computer retains the information 
required to resume its current program after it completes the execution of a 
subroutine. 


Suspend (a task). Halts execution and preserves the status of the task until some 
future time. 


Synchronization (or sync) character. A character that is used only to synchronize 
the transmitter and the receiver. 


Synchronous. Operating according to an overall timing source or clock, that is, at 
regular intervals. 


Systems software. Programs that perform administrative functions or aid in the 
development of other programs but do not actually perform any of the com- 
puter’s ultimate workload. 


T 


Tail (of a queue). The location of the oldest item in the queue, that is, the earliest 
entry. 


Task. A self-contained program that can serve as part of an overall system under 
the control of a supervisor. 


Task status. The set of parameters that specify the current state of a task. A task 
can be suspended and resumed as long.as its status is saved and restored. 


Teletypewriter. A device containing a keyboard and a serial printer that is often 
used in communications and with computers. Also referred to as a Teletype (a 
registered trademark of Teletype Corporation of Skokie, Illinois) or TTY. 


Ten’s complement. The result of subtracting a decimal number from zero (ignoring 
the negative sign), the nine’s complement plus one. 


Terminator. A data item that has no function other than to signify the end of an 
array. 


Threaded code. A program consisting of subroutines, each of which automatically 
transfers control to the next one upon its completion. 
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Timeout. A period during which no activity is allowed to proceed, an inactive 
period. 


Top of the stack. The address containing the item most recently entered into the 
stack. 


Trace. A debugging aid that provides information about a program while the pro- 
gram is being executed. The trace usually prints all or some of the intermediate 
results. 


Trailing edge (of a binary pulse). The edge that masks the end of a pulse. 


Translate instruction. An instruction that converts its operand into the corres- 
ponding entry in a table. 


Transparent routine. A routine that operates without interfering with the opera- 
tions of other routines. 


Trap (or software interrupt). An instruction that forces a jump to a specific (CPU- 
dependent) address, often used to produce breakpoints or to indicate hardware 
or software errors. 


True borrow. See Borrow. 


Two's complement. A binary number that, when added to the original number in a 
binary adder, produces a zero result. The two's complement of a number may 
be obtained by subtracting the number from zero or by adding 1 to the one's 
complement. 


Two's complement overflow. A situation in which a signed arithmetic operation 
produces a result that cannot be represented correctly — that is, the magnitude 
overflows into the sign bit. 


U 


UART (Universal Asynchronous Receiver/Transmitter). An LSI device that acts 
as an interface between systems that handle data in parallel and devices that 
handle data in asynchronous serial form. 


Underflow (of a stack). Attempting to remove more data from a stack than has 
been entered into it. 


Unsigned number. A number in which all the bits are used to represent magnitude. 


Utility. A general-purpose program, usually supplied by the computer manufac- 
turer or part of an operating system, that executes a standard or common 
operation such as sorting, converting data from one format to another, or 
copying a file. 
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V 
Valid data. A signal that is active when new data is available to the receiver. 


Vectored interrupt. An interrupt that produces an identification code (or vector) 
that the CPU can use to transfer control to the appropriate service routine. The 
process whereby control is transferred to the service routine is called vectoring. 


Versatile Interface Adapter (VIA). The name commonly given to the 6522 parallel 
interface device; it consists of two 8-bit bidirectional I/O ports, four status and 
control lines, two 16-bit timers, and a shift register. 


VIA. See Versatile Interface Adapter. 


Volatile memory. A memory that loses its contents when power is removed. 


W 


Walking bit test. A procedure whereby a single 1 bit is moved through each bit 
position in an area of memory and a check is made as to whether it can be read 
back correctly. 


Word. The basic grouping of bits that a computer can process at one time. In deal- 
ing with microprocessors, the term often refers to a 16-bit unit of data. 


Word boundary. A boundary between 16-bit storage units containing two bytes of 
information. If information is being stored in word-length units, only pairs of 
bytes conforming to (aligned with) word boundaries contain valid information. 
Misaligned pairs of bytes contain one byte from one word and one byte from 
another. 


Word-length. A length of 16 bits per item. 


Wraparound. Organization in a circular manner as if the ends were connected. A 
storage area exhibits wraparound if operations on it act as if the boundary loca- 
tions were contiguous. 


Write-only register. A register that the CPU can change but cannot read. If a pro- 
gram must determine the contents of such a register, it must save a copy of the 
data placed there. 


Z 


Zero flag. A flag that is 1 if the last operation produced a result of zero and 0 if it 
did not. | 
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Zero page. In 6502 terminology, the lowest 256 memory addresses (addresses 
0000 through ООЕЕ). 


Zero page addressing. In 6502 terminology, a form of direct addressing in which 
the instruction contains only an 8-bit address on page 0. That is, zero is implied 
as the more significant byte of the direct address and need not be included 
specifically in the instruction. 


Zero-page indexed addressing. A form of indexed addressing in which the instruc- 
tion contains a base address on page 0. That is, zero is implied as the more sig- 
nificant byte of the base address and need not be included a in the 
instruction. 


Zoned decimal. A binary-coded decimal format in which each 8-bit byte contains 
only one decimal digit. 


Index 


A 


A register. See Accumulator 
Abbreviations, recognition of, 346, 355, 356 
Absolute (direct) addressing, 10—11, 14, 141 
instructions, 8 
order of address bytes, 5  . 
Absolute indexed addressing, 11— 12, 13, 14 
instructions, 9 
limitation (to 256-byte arrays), 146 
order of address bytes, 5 
Absolute value (16-bit), 86—87, 175— 76, 243— 44 
Accepting an interrupt, 65 —68, 508 
Accumulator (register A), 6, 7, 10 
decimal operations, 74 — 82 
decision sequences, 26 
decrement by 1, 3, 81 
exchange with top of stack, 100 
functions, 6 
increment by 1, 3, 79—80 
instructions, 7 
testing, 94—95 
Active transition in a 6522 VIA, 56, 59 
ADC, 2, 15, 16, 17, 135, 136 
Carry flag, exclusion of, 2, 15, 16, 136 
decimal mode, 3, 144 — 45 
flags, 3, 135 
increment by 1, 3 
result, 135 
Addition 
BCD, 3, 74 — 76, 79, 80—81, 280 — 84 
binary, 2, 15—17, 38—39, 74—76, 253— 56 
decimal, 3, 74 — 76, 79, 80—81, 280—84 
8-bit, 2, 15—17, 74—76, 79 
multiple-precision, 38 — 39, 253 — 56, 280— 84 
16-bit, 75, 76, 80, 230—32 
Addition instructions, 74 — 76 
with Carry, 75 — 76 
without Carry, 74— 75 
Address arrays, 32, 35—37, 415—17 | 
Address format in memory (upside-down), 5, 141 
Addressing modes 
absolute (direct), 10— 11, 14, 141 
absolute indexed, 11—12, 13, 14, 146 
autoindexing, 127 — 29 
default (absolute direct), ix, 8, 150 
direct, 7, 8, 10— 11, 14, 141 
immediate, 11, 13, 141 
indexed, 8, 11—12, 13, 14, 125—27 


indexéd indirect (preindexed), 2, 9, 12, 32, 51 — 52, 130, 141 


indirect, 2, 35 — 36, 123—25 


indirect indexed (postindexed), 2, 4, 9, 12, 31 —34, 41—43 


postindexed, 2, 4, 9, 12, 31—34, 41—43 
preindexed, 2, 9, 12, 32, 51—52, 130, 141 
6502 terminology, 11 
summary, 507 
zero page (direct), 7, 10— 11, 14 
zero page indexed, 8, 11 — 12 

Adjust instructions, 122 


AND, 88—89 
clearing bits, 17— 18 
input instruction, 49 
masking, 52 — 53, 339— 40, 345 — 46 
testing bits, 21 — 22 
Apostrophe indicating ASCII character, viii 
Arithmetic, 230— 305 
BCD, 3, 280— 305 
binary, 2, 15—17, 38— 39, 230— 79 
decimal, 3, 280— 305 
8-bit, 2, 15—17 
multiple-precision, 38 — 39, 253 — 305 
16-bit, 230— 52 
Arithmetic instructions, 74 — 88 
Arithmetic shift, 20, 83— 84, 92, 325 — 28 
Arrays, 29 — 34, 127 — 29, 193—229, 382—417 
addresses, 32, 35—37, 415—17 
initialization, 193 — 96 
long (exceeding 256 bytes), 32— 34, 385 
manipulation, 29 — 34 
variable base addresses, 31 — 34 
ASCII, 517 
assembler notation, viii —ix 
conversions, 168 —92 
table, 517 
ASCII to EBCDIC conversion, 187- 89 
ASL, 22, 33, 49 
Assembler 
defaults, 142 — 43, 150 
error recognition, 149—51 
format, viii —ix, 507 
pseudo-operations, 507 


Asynchronous Communications Interface Adapter (ACIA), 53 


... 458— 59, 464 — 71, 480— 89 
Autoindexing, 127 — 29 
Autopostdecrementing, 129 
Autopostincrementing, 128 
Autopredecrementing, 128 — 29 
Autopreincrementing, 127 — 28 


B (indicating binary number), viii 

B (Break) flag, vii 

Base address of an array or table, 11, 12, 29, 30 
Baud rates, common, 521 

BCC, 23—24, 26, 27 


BCD (decimal) arithmetic, 3, 74—81, 144— 45, 280— 305 


BCD to binary conversion, 166—67 
BCS, 23—25, 26, 27 
BEQ, 22, 23, 138 
Bidirectional ports, 153, 457 — 58 . 
Binary-coded-decimal (BCD), 3, 143 
Binary search, 397 — 402 
Binary to BCD conversion, 163—65 
Bit field extraction, 315— 19 
Bit field insertion, 320— 24 
BIT, 22, 137, 140 

addressing modes, 4, 16, 125 
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BIT (continued) 
flags, 4, 137 
input instruction, 49, 152 

Bit manipulation, 17 — 20, 88—92, 306 — 24 

Block compare, 86, 345 — 48 

Block move, 99, 197 — 203 

.BLOCK pseudo-operation, viii 

BMI, 4, 25, 139 

BNE, 4, 21, 23, 28, 29 

Boolean algebra, 17 

Borrow, 2, 23—24 

BPL, 22, 25, 140 

Branch instructions, 26 — 27, 102—17 
conditional branches, 103— 17 
decision sequences, 26 — 27 
indexed branches, 102 —03 
signed branches, 110— 12 
unconditional branches, 102 — 03, 149 
unsigned branches, 112— 17 

Break (B) flag, vii 

BRK, 508 

BSC protocol, 434 

Bubble sort, 403 — 06 

Buffered interrupts, 480 — 89 

BVC, 4, 122 

BVS, 22, 25, 139, 140 

.BYTE pseudo-operation, viii, 188, 191—92 


с 


Calendar, 490 — 503 
Call instructions, 117— 18. See also JSR 
Carry (C) flag 
adding to accumulator, 74, 75 
arithmetic applications, 2, 38 — 39 
branches, 26 — 27 
CLC, 2, 38—39 
comparison instructions, 2, 22 — 23, 135 
complementing, 92 
decimal arithmetic, 3 
decrement instructions (no effect), 137 
increment instructions (no effect), 137 
instructions affecting, 138 
inverted borrow, 2, 135 
meaning, 2 
multiple-precision arithmetic, 38— 39 
position in status register, vii, 509 
SBC, 2 
SEC, 2, 76 
shifts, 18 
subtracting from accumulator, 76, 77 
subtraction, 2 
Case statements, 36 
Character manipulation, 37. See also String manipulation 
Checksum, 91. See also Parity 
Circular shift (rotation), 18- 19, 94, 337 — 44 
CLC, 2, 38— 39 
CLD, 3, 68, 74. See also Decimal Mode flag 
Clear instructions, 5, 100—01 
Clearing an array, 32— 33, 196 
Clearing bits, 17, 18, 101, 329—32 
Clearing flags, 89 
Clearing peripheral status, 58, 60, 153, 154, 465, 481 
CLI, 5, 123 
CLV, 122 
CMP, 135 
Carry flag, 2, 22—23, 135 
input instruction, 49 
Overflow flag (no effect), 25, 138 
SBC, differences from, 16 
use of, 22—24 
Zero flag, 22—23 


Code conversion, 37 — 38, 163—92 
Colon (optional delimiter after label), viii 
Combo chips, 53 
Command register, 153. See also Control register 
Comment, viii 
Common programming errors, 133 — 55 
interrupt service routines, 153— 55 
I/O drivers, 151- 53 


Communications between main program and interrupt service 


routines, 154- 55, 464 —65, 472— 73, 480— 82 

Compacting a string, 396 — 97 
Comparison instructions, 84 — 86 

bit-by-bit (logical Exclusive OR), 91 

Carry flag, 2, 22— 23, 135 

decimal, 3, 305 

multiple-precision, 275 — 79 

operation, 16 

16-bit, 249 — 52 

string, 345 —48 

Zero flag, 22 — 23 
Complementing (inverting) bits, 17, 18, 91 
Complementing Carry flag, 92 
Complementing the accumulator (EOR #$FF), 16, 91 
Complement (logical NOT) instructions, 91—92 
Concatenation of strings, 177 — 78, 349— 54 
Condition code. See Flags; Status register 
Conditional branch instructions, 26 — 27, 103— 17 

execution time (variable), 505, 506 

page boundary, 505, 506 
Conditional call instructions, 118 
Conditional return instructions, 119 
Control lines on 6522 VIA, 57 —61 
Control register, 53, 153 

6522 VIA, 55—61 
Control signal, 52 — 53 
Copying a substring, 361 — 67 
CPX, 27, 70, 135 
CPY, 27, 70, 135 
CRC (cyclic redundancy check), 434 — 39 


D 


D (Decimal Mode) flag, vii, 3, 68, 509 
Data direction register (DDR), 54, 57 
6520 PIA, 457 — 58 
6522 VIA, 54, 47, 458, 513 
Data transfer instructions, 95 — 101 
.DBYTE pseudo-operation, viii 
Debugging, 133— 55 
interrupt service routines, 153— 55 
ЏО drivers, 151 — 53 
Decimal (BCD) arithmetic 
addition, 280 — 84 
binary conversions, 163 — 67 
comparison, 305 
decrement by 1, 81, 82, 122, 145 
division, 297 — 304 
8-bit, 74—81 
flags, 3 
increment by 1, 80, 122, 145 
multibyte, 280 — 305 
multiplication, 290 —96 
subtraction, 285 — 89 
validity check, 122 
Decimal Mode (D) flag 
CLD, 3, 68, 74 
default value in most computers, 3, 145 
initialization, 3, 145 
interrupt service routines, 68, 145, 154 
meaning, 3 
position in status register, vii, 509 


Decimal Mode (D) flag (continued) 
reset (no effect), 3 
saving and restoring, 3, 74 — 75 
SED, 68, 144 
testing, 105, 107 
use, 3 
DEC 
Carry flag (no effect), 137 
clearing bit 0, 18 
complementing bit 0, 18, 91 
decimal mode, 3 
decision sequences, 23, 27, 95 
output instruction, 49 
Decision sequences, 26 — 27 
Decrement instructions, 81 — 82 
accumulator, 3, 81 
16-bit number, 29, 81 — 82, 137 
Defaults in assembler, 142 — 43, 150 
Delay program, 460 — 63 
Deletion of a substring, 368 — 73 
Device numbers, 51 — 52, 440 
Digit (4-bit) shift, 93, 303 
Direct addressing 
absolute version, 10—11, 14, 141 
immediate addressing, difference from, 141 
6502 terminology, 11 
use of, 0— 11 
zero page version, 7, 10—11, 14 
Direction of stack growth, 5, 12— 13, 508 
Disassembly of numerical operation codes, 506 
Division, 83—84 
by 2, 83—84 
by 4, 40, 83 
by 10, 164 
by 100, 164 
decimal, 297 — 304 
multiple-precision binary, 267 — 74 
simple cases, 40, 83— 84 
16-bit, 240 — 48 
Documentation of programs, 22, 36 
Dollar sign in front of hexadecimal numbers, viii, 142 
Doubling an element number, 33, 34 — 36 
Dynamic allocation of memory, 46 — 47, 67 — 68 


EBCDIC to ASCII conversion, 190 — 92 
8080/8085 microprocessors, differences from 6502, 3, 5, 135 
Enabling and disabling interrupts 
accepting an interrupt, 65 — 68 
CLI, 5, 123 
interrupt status, saving and restoring, 67, 123 
interrupt status, testing, 105, 107 
RTI, 66, 508 
SEI, 5, 67, 123 
6522 VIA, 63—65 
stack, 66 — 67 
when required, 67 
.END pseudo-operation, viii 
Endless loop instruction, 121 —22 
EOR, 90—91 
comparison (bit-by-bit), 90 
complementing accumulator (EOR 3ESFF), 16, 91 
inverting bits, 91 
logical sum, 91 
.EQU pseudo-operation, viii 
Equal values, comparison of, 24, 136 
Error-correcting codes. See CRC 
Error-detecting codes. See Parity 
Error handling, 158 — 59 
Errors in programs, 133— 55 
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Even parity, 428 — 33 

Exchange instructions, 100 

Exchanging elements, 31, 100, 405 
Exchanging pointers, 272, 302 

Exclusive OR function, 16. See also EOR 
Execution time, reducing, 68 — 69 
Execution times for instructions, 505 — 06 
Extend instructions, 87—88 


F 


F (flag) register, 533. See also Flags; Status register 
FIFO buffer (queue), 42—43, 481— 82 
Fill memory, 99, 193—96 
Flag registers. See Status register 
Flags 
decimal mode, 3 
instructions, effects of, 505 — 06 
loading, 97 
organization in status register, vii, 509 
storing, 98 
use of, 26 — 27 
Format errors, 142— 45 
Format of storing 16-bit addresses, 5 


H 


H (indicating hexadecimal number), viii, 142 
Handshake, 57 — 62 

Head of a queue, 42 — 43, 481— 82 

Hexadecimal ASCII to binary conversion, 171 — 73 
Hexadecimal to ASCII conversion, 168 — 70 


I flag. See Interrupt Disable flag 
Immediate addressing 
assembler notation, ix 
direct addressing, difference from, 141 
store instructions (lack of), 13 
use of, 11 
Implementation error (indirect jump on page boundary), 151 
Implicit effects of instructions, 147—48 
INC 
Carry flag (no effect), 137 
complementing bit 0, 18, 91 
decimal version, 80 
output instruction, 49 
setting bit 0, 18 
16-bit increment, 80, 81 
Increment instructions, 79- 81 
accumulator, 3, 79, 80 
16-bit number, 4, 29, 80, 81, 137 
Independent mode of 6522 VIA control lines, 58 — 59, 62, 63 
Indexed addressing 
absolute version, 11 —12, 13, 14 
errors in use, 134 
indexed indirect (preindexed) version, 12, 32, 51— 52, 130 
indirect indexed (postindexed) version, 12, 32—33, 130 
offset of 1 in base address, 30 
16-bit index, 33— 34, 35 
subroutine calls, 35 — 37, 415— 17 
table lookup, 34 
use of, 29— 30, 35— 36 
zero page version, 8, 11— 12 
Indexed jump, 35—37, 102—03, 415— 17 
Indexing of arrays, 29 — 37, 39— 40, 204 — 29 
byte arrays, 204 — 06, 210— 14 
multidimensional arrays, 221 — 29 
one-dimensional byte array, 204 — 06 
one-dimensional word array, 207 — 09 
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Indexing of arrays (continued) 
two-dimensional byte array, 39—40, 210— 14 
two-dimensional word array, 215 — 20 
word arrays, 207 — 209, 215 — 20 

Index registers 
CPX, CPY, 27, 70, 135 
decision sequences, 27 
differences between X and Y, 6, 10 
exchanging, 100 
instructions, 7 
LDX, LDY, 10, 11 
length, 4 
loading from stack, 12 — 13 
saving in stack, 13 
special features, 6 
STX, STY, 13 
table lookup, 34 — 37 
testing, 95 
transfers, 98 
use of, 6, 10 

Indirect addressing, 41, 96, 102, 123—25 
absolute version (JMP only), 2, 141 
indexed indirect version (preindexing), 12, 32, 51 —52, 130 
indirect indexed version (postindexing), 12, 32 — 33, 130 
JMP, 2, 141 
simulating with zero in an index register, 2, 96, 123—25 
subroutine calls, 35 — 36, 102, 117— 18 

Indexed indirect addressing (preindexing), 12, 32, 51—52, 

130, 141 
errors, 52, 141 
even indexes only, 12 
extending, 130 
instructions, 9 
restrictions, 12 
use, 32, 51, 124 
word alignment, 141, 542 
wraparound on page 0, 52, 130 
Indirect call, 117— 18 
Indirect indexed addressing (postindexing), 2, 4, 12, 31 — 34, 
41 —43, 141 
extending, 130 
instructions, 9 
long arrays, 32— 33 
restrictions, 12 
variable base addresses, 34— 35, 41 — 43 

Indirect jump, 35 — 36, 102, 117—18, 445 — 46 
error on page boundary, 151 

Initialization 
arrays, 193—96 
Decimal Mode flag, 3, 148, 154 
indirect addresses, 15, 97 
interrupt system, 464, 468—69 472-73,476-77 
ПО devices, 454 — 59 
pointer on page 0, 15, 97 
RAM;14—15, 193—96 
6522 VIA, $4 — 63, 458, 477 
6850 ACIA, 458 — 59, 468— 69, 486 — 87 
stack pointer, 96 
status register, 97 

Initialization errors, 148 

Input/Output (1/0) 
control block (IOCB), 440 — 53 
device-independent, 440—59 
device table, 51 — 52, 440— 53 
differences between input and output, 152, 465, 473, 481 
errors, 151— 53 
initialization, 454 — 59 
instructions, 49 — 51 
interrupt-driven, 464 — 89 
logical devices, 51 
output, generalized, 425 — 27 


Input/Output (МО) (continued) 
peripheral chips, 53 — 65 
physical devices, 51 
read-only ports, 49— 5] 
6522 VIA, 54—65, 472— 79 
6850 АСТА, 458— 59, 464 — 71, 480 —89 
status and control, 52 — 53 
terminal handler, 418 — 24 
Insertion into a string, 374— 81 
Instruction execution times, 505 — 06 
Instruction set 
alphabetical list, 505 — 06 
numerical list, 506 
Interpolation in tables, 70 
Interrupt Disable (1) flag 
accepting an interrupt, 65 
changing in stack, 66 — 67 
CLI, 5, 123 
meaning, 5 . 
position in status register, vii, 105, 509 
RTI, 66, 508 
saving and restoring, 57, 123 
SEI, 5, 67, 123 
setting in stack, 66 — 67 
testing, 105, 107 
Interrupt enable register (in 6522 VIA), 63— 64, 477, 516 


Interrupt flag registers (in 6522 VIA), 59, 60, 63—65, 477, 516 


Interrupt response, 65—66, 508 
Interrupt status 
changing in stack, 66 — 67 
saving and restoring, 67, 123 
6502 CPU, 65 — 66, 123 
6522 VIA, 63— 65, 477, 516 
Interrupts. See also Enabling and disabling interrupts 
accepting, 65 — 68, 508. 
buffered, 480— 89 
elapsed time, 490 — 503 
flags (6522 VIA), 63—65, 477, 516 
handshake, 464 — 89 
order in stack, 66 
programming guidelines, 65 —68, 153— 55 
real-time clock, 490 — 503 
reenabling, 66 — 67, 123 
response, 65 — 66 
service routines, 464 — 503 
6522 VIA, 63—55, 472— 79 
6850 АСТА, 464 — 71, 480— 89 
Interrupt service routines, 464— 65, 472— 73, 480— 81, 490 
errors, 153— 55 
examples, 464 — 503 
main program, communicating with, 154— 55, 464 — 65, 
472— 13, 480— 82 
programming guidelines, 65 — 68 
real-time clock, 490 — 503 
6522 VIA, 472— 79 
6850 АСТА, 464 — 71, 480 — 89 
Inverted borrow in subtraction, 2, 23 — 24, 135 
Inverting bits, 17, 18, 91 
Inverting decision logic, 134, 136, 137 
I/O control block (IOCB), 440— 53 
I/O device table, 51—52, 440— 53 


J 


JMP, 2, 5, 141 
absolute addressing, 141 
addressing modes, meaning of, 141 
indirect addressing, 35 — 36 
page boundary, error on (indirect), 1512 
JSR, 3 
addressing modes, meaning of, 141 


JSR (continued) 
offset of 1 in return address, 3, 44 — 45 
operation, 508 
return address, 3 
variable addresses, 415 — 17 

Jump table, 35—37, 152, 415—17 
implementations, 142 


L 


LDA, 3, 11,12, 22 
LDX (LDY), 10, 11 
Limit checking, 23 — 25, 37, 186 
Linked list, 40 — 43, 441, 442, 447 — 48 
List processing, 40—42, 446 — 47 
Load instructions, 96 — 97 
addressing limitations, 11 
flags, 3, 22 
Logical I/O device, 51-52, 440, 441 
Logical instructions, 88—95 
Logical shift, 18, 19, 20, 49, 92—93, 329- 36 
Logical sum, 90. See also Parity 
Long arrays (more than 256 bytes), 4, 32 — 34, 146 
full pages separately, 193, 195 
Lookup tables, 34 — 37, 69, 70, 187 —92 
Loops, 28 — 29 
reorganizing to save time, 68 — 69 
Lower-case ASCII letters, 185 — 86 
LSR, 19, 20, 49 


Magazines specializing in 6502 microprocessor, 71 
Manual output mode of 6522 VIA, 58— 62 
Masking bits, 52 — 53, 339— 40, 345 — 46 
Maximum, 389 — 92 
Memory fill, 99, 193—96 
Memory test, 407 — 14 
Memory usage, reduction of, 70 
Millisecond delay program, 460 — 63 
Minimum byte length element, 393 — 96 
Missing instructions, 5, 73— 123 
Move instructions, 98 — 99 
Move left (bottom-up), 197, 201 
Move multiple, 99 
Move right (top-down), 197, 201 — 02 
Multibit shifts, 18, 19 
Multibyte entries in arrays or tables, 31, 34 — 37, 207 — 09, 
205 — 29 
Multidimensional arrays, 221 — 29 
Multiple-precision arithmetic, 38- 39, 253—305 
Multiple-precision shifts, 325 — 44 
arithmetic right, 325 — 28 
digit (4-bit) shift left, 303 
logical left, 329 — 32 
logical right, 333— 36 
rotate left, 341 —44 
rotate right, 337 —40 
Multiplication, 39— 40, 82 — 83 
by a small integer, 39, 82— 83 
by 10, 167, 182— 83 
decimal, 290 — 96 
multiple-precision, 261 — 66, 290 — 96 
16-bit, 236 — 39 
Multi-way branches (jump table), 34—37, 415—17 


N flag. See Negative flag 
Negative, calculation of, 86 — 87, 244 
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Negative (N) flag 
BIT, 4, 22, 137 
branches, 24 — 27 
comparisons, 136 — 37 
decimal mode, 3 
instructions, effect of, 505 — 06 
load instructions, 3 
position in status register, vii, 509 
SBC, 139 
store instructions (no effect), 3 
Negative logic, 152 
Nested loops, 28 — 29 
Nibble (4 bits), 164, 167 
Nine's complement, 87 
NOP, filling with, 196 
Normalization, 93 — 94 
NOT instructions, 91—92 
Number sign (indicating immediate addressing), ix 
Numerical comparisons, 23 —25 


0 


Odd parity, 431 
One-dimensional arrays, 204 — 09 
One's complement, 91 —92. See also EOR 
Operation (op) codes 
alphabetical order, 505 — 06 
numerical order, 506 
ORA, 17, 18, 89— 90, 307, 323. See also Setting bits to 1 
Ordering elements, 31, 403—06 
ОКС (+=) pseudo-operation, viii 
Output line routine, 425 — 27 
Overflow (V) flag 
BIT, 4, 22, 140 
branches, 27 
CLV, 122 
instructions affecting, 138 
position in status register, vii, 509 
Set Overflow input, 122 
uses of, 22, 24 — 25 
Overflow of a stack, 43, 107 —08, 109 


Overflow, two's complement, 24- 25, 110— 12, 136— 37, 139 


P 


P (processor status) register, vii, 509, 533. See also Flags; Status 


register 

Page boundary, crossing, 4, 32— 33 

error in indirect jump, 151 

example, 145 — 47 
Parallel/serial conversion, 18, 49, 50 
Parameters, passing, 44—48, 157 — 58 
Parentheses around addresses (indicating indirection), viii 
Parity, 428— 33 

checking, 428 — 30 

even, 428, 431 

generation, 431 — 33 

odd, 431 
Passing parameters, 44 — 48, 157 — 58 

memory, 44 — 46 

registers, 44 

stack, 46— 48 
PC register, 509. See also Program counter 
Percentage sign (indicating binary number), viii, 142 
Peripheral Interface Adapter (6520 PIA), 53, 153, 457 — 58 
Peripheral Ready signal, 58- 61 
PHA, 13, 46, 47, 66, 97, 120 
PHP, 67, 98, 122, 123 
Physical I/O device, 51— 52, 440 
PIA (6520 Peripheral Interface Adapter), 53, 153, 457 — 58 
PLA, 12— 13, 44, 45, 47, 66, 98, 121 
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PLP, 12, 67, 97 
Pointer, 2, 4, 15, 41 
exchanging, 272, 302 
loading, 97 
Polling 
6522 VIA, 60, 477 
6850 ACIA, 569, 487 
Pop instructions, 121 
Position of a substring, 355 —60 
Postdecrement, 129 
stack pointer, 5, 13 
Postincrement, 128 
Postindexing (indirect indexed addressing), 2, 4, 9, 12, 32— 34, 
130, 141 
Predecrement, 128 — 29 
Preincrement, 127 — 28 
stack pointer, 5, 13 
Preindexing (indexed indirect addressing), 9, 12, 33, 51—52, 
130, 141 
Progam counter, 509 
JSR, 3, 141, 508 
RTS, 3, 36 — 37, 508 
Programmable I/O devices, 53 — 54 
advantages of, 53 
initialization, 454— 59 
operating modes, 53 
6522 VIA, 54—65, 472—479 
6850 ACIA, 464— 71, 480— 89 
Programming model of 6502 microprocessor, 509 
Pseudo-operations, viii — ix, 507 
Push instructions, 120— 21 


Q 


Queue, 42— 43, 481—82 
Quotation marks around ASCII string, ix 


RAM 
filling, 193—96 
initialization, 14— 15, 148 
saving data, 13— 14 
testing, 407 —14 
Read-only ports, 49—51 
Ready flag (for use with interrupts), 464, 472 
Real-time clock, 490 — 503 
Reenabling interrupts, 66 — 67, 123 
Reentrancy, 44, 46 — 48, 67—68 
Registers, vi — vii, 6— 14, 509 
functions, 6 
instructions, 7 
length, vi — vii 
order in stack, 65 — 66, 120 
passing parameters, 44 
programming model, 509 
saving and restoring, 120— 21 
special features, 6, 10 
transfers, 10 
Register transfers, 10, 98, 100 
flags, 3 
Reset 
Decimal Mode flag (no effect), 3 
6522 VIA, 57 
Return instructions, 118- 19. See або RTS 
Return with skip instructions, 119 
RIOT, 53 
ROL, 19, 20, 49 
ROM (read-only memory), 49, 407 
ROR, 18, 19, 20, 49 
Rotation (circular shift), 18, 19, 20, 94, 337 — 44 


Row major order (for storing arrays), 221, 537 
RTI, 66, 508 
RTS, 3, 102 
addition of 1 to stored address, 3, 36 
indexed jump, 36 
operation, 508 


S 


S register. See Stack pointer 
Saving and restoring interrupt status, 67, 123 
Saving and restoring registers, 66, 120—21 
Saving and restoring D flag, 3, 74— 75 
SBC, 2, 16, 135 
Carry flag, 2, 135 
CMP, difference from, 16 
decimal mode, 3, 81 
decrementing accumulator by 1, 3, 81 
operation, 2, 135 
Scratchpad (page 0), 6 
Searching, 37, 397 —402 
SEC, 2, 76 
SEI, 5, 67, 123 
Semicolon indicating comment, viii 
Serial input/output, 18, 53, 464— 71, 480— 89 
Serial/parallel conversion, 18, 53 
Set instructions, 101 
Set Origin („ОКО or +=) pseudo-operation, viii 
Set Overflow input, 122 
Setting bits to 1, 17, 18, 89—90, 306 — 08 
Setting directions 
initialization, 457 — 58 
6522 VIA, 54, 57 
Setting flags, 90 
Shift instructions, 18— 20, 92—94 
diagrams, 19 
ЏО, 49—51 
multibit, 18, 20 
multibyte, 325 —44 
Sign extension, 20, 84, 87 — 88, 325 —28 
Sign flag. See Negative flag 
Sign function, 88 
Signed branches, 110— 12 
Signed numbers, 24 — 25 
16-bit operations, 2, 41 
absolute value, 86—87 
addition, 75, 76, 230— 32 
comparison, 84 — 85, 249 — 52 
counter, 4 
decrement by 1, 29, 81—82, 137 
division, 240 — 48 
increment by 1, 4, 29, 80, 81, 137 
indexing, 33— 35 
multiplication, 236 — 39 
pop, 121 
push, 121 
registers, lack of, 2, 41 
shifts, 92—94 
subtraction, 77, 79, 233— 35 
test for zero, 43, 95, 245 
6520 Peripheral Interface Adapter (PIA), 153, 457 — 58 
6522 Versatile Interface Adapter (VIA), 54— 65, 458, 472 — 79, 
510—16 
active transition in, 56, 59 
addressing, 54, 55, 511 
auxiliary control register, 56, 62 — 63, 515 
automatic modes, 58 — 62 
block diagram, 511 
control lines, 57 —61 
control registers, 54 — 56, 515 
data direction registers, 54, 57, 513 


6522 Versatile Interface Adapter (VIA) (continued) 
differences between port A and port B, 61 
independent mode, 58 — 59, 62, 63 
initialization examples, 57 — 63, 458 
input control lines, 57 — 59 
input/output control lines, 57—61 
input port, 512 
internal addressing, 54, 55, 511 
interrupt enable registers, 63— 64, 516 
interrupt flag registers, 59, 60, 63—65, 516 
interrupts, 63 — 65, 472— 79 
МО ports, 512 
manual mode, 58—62 
operating modes (summary), 62, 63 
output registers, 512 
peripheral control register, 56, 59 — 62, 515 
pin assignments, 510 
read strobe, 59 — 61 
registers, 511 
reset, 57 
shift register, 62, 514 
timers, 62, 513— 14 
write strobe, 59—61 

6530 Multifunction Device (RRIOT), 458 

6532 Multifunction Device (RIOT), 458 

6551 ACIA, 458 

6800 microprocessor, differences from 6502, 5, 135, 138 


6809 microprocessor, differences from 6502, 5, 89, 90, 135, 138 


6850 ACIA, 458 — 59, 464— 71, 480 — 89 
Skip instructions, 117 
Software delay, 460 — 63 
Software stack, 43 
Sorting, 403 — 06 
SP register. See Stack pointer 
Special features of 6502, summary of, 2—6 
Stack, 2, 3, 5, 12—13 
accessing through indexing, 46 
changing values, 66 — 67 
data transfers, 5, 13 
downward growth, 36 
limitation to 256 bytes, 2 
overflow, 43 
page 1, location on, 2, 13 
passing parameters, 46 — 48 
PHA, 13, 46, 47, 66, 97, 120 
PHP, 67, 98, 122, 123 
PLA, 12— 13, 44, 45, 47, 66, 98, 121 
PLP, 12, 67, 97 
pointer, 5 
saving registers, 13 
software, 43 
underflow, 43 
Stack pointer 
automatic change when used, 5, 13 
comparison, 85 
contents, 5 
decrementing, 81 
definition, 5 
dynamic allocation of memory, 46 — 47 
incrementing, 80 
loading, 10, 96 
next available address, 5 
page number (1), 2 
reduction, 46 — 47 
size of change, 147 
storing, 10, 98 
transfers, 98 
Stack transfers, 5, 13 
Status bit. See Flags; Status register 
Status register 
changing, 97 


iNpex 549 


Status Register (continued) 
changing in stack, 66 — 67 
definition, vii, 509 
loading, 6, 97 
organization, vii, 509 
storing, 6, 98 
transfers to or from accumulator, 98 
unused bit, vii 

Status signals, 52 — 53 

Store instructions, effect on flags (none), 3, 136 

String operations, 37, 345— 81 
abbreviations, recognition of, 346, 355, 356 
compacting, 396 — 97 
comparison, 345 — 48 
concatenation, 349 — 54 
copying a substring, 361 — 67 
deletion, 368— 73 
insertion, 374- 81 
position of substring, 355 — 60 
search, 37 

Strobe from 6522 VIA, 59, 61 

Subroutine call, 3, 117 — 18. See also JSR 
variable addresses, 117 —18 

Subroutine linkage, 3, 507 

Subscript, size of, 158, 211, 216, 221 

Subtraction 
BCD, 3, 77 — 79, 285 — 89 
binary, 2, 16, 76 — 79 
Carry flag, 2, 135 
decimal, 3, 77 — 79, 285 — 89 
8-bit, 2, 16, 77 — 79 
inverted borrow in, 2, 23 — 24, 135 
multiple-precision, 38, 257 — 60 
reverse, 78 
setting Carry first, 2, 16, 38 
16-bit, 77 — 79, 233—35 

Subtraction instructions 
in reverse, 78 
with borrow, 79 
without borrow, 76 — 77 

Summation 
binary, 30, 382 — 88 
8-bit, 30, 382— 84 
16-bit, 385 — 88 

Systems programs, conflict with, 134 


T 


Table, 34 — 37, 69, 70, 187 —92 
Table lookup, 34— 37, 69, 70 
Tail of a queue, 481 — 82 
Ten's complement, 87 
Terminal I/O, 418 — 27 
Testing, 94 — 95 
bits, 17, 21 —22, 26—27, 95 
bytes, 22— 27,94 —95 
multiple-precision number, 271, 301 
16-bit number, 43, 90, 95 
.TEXT pseudo-operation, viii 
Threaded code, 42 
Threshold checking, 21, 23— 25 
Timeout, 460 — 63 
Timing for instructions, 505 — 06 
Top of stack, 5 
Transfer instructions, effect on flags, 3, 22 
Translate instructions, 123 
Trivial cases, 158 
TSX, 10, 22, 46, 98 
Two-byte entries, 31, 32, 34 — 35, 123 
Two-dimensional arrays, 39— 40, 210— 20 
Two's complement, 86—87 
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Two's complement overflow, 24 — 25, 139, 140 
TXS, 10, 96 
flags, effect on (none), 3, 22 


U 


UART. See 6551 ACIA; 6850 ACIA 
Unconditional branch instructions, 102 — 03 
Underflow of stack, 43, 85 

Upside-down addresses, 5 


V 


V (Overflow) flag, 22, 24 — 25, 27, 122, 136, 138, 139 
Variable base addresses, 32 — 33 


w 


Wait instructions, 121 — 22 

Word alignment, 141 

Word boundary, 141 

.WORD pseudo-operation, viii, 45 
Wraparound on page 0, vii, 52, 130 
Write-only ports, 49— 53, 152, 153, 155 


X 


X register. See Index registers 


Y 


Y register. See Index registers 


Z 


Z flag. See Zero flag | 
7-80 microprocessor, differences from 6502, 3, 5, 135 
Zero flag 

branches, 26 — 27 

CMP, 22— 23, 136 

decimal mode, 3 

INC, 29, 137 

inversion in masking, 21, 89 

load instructions, 3, 22 

masking, 21 

meaning, 136 

position in status register, vii, 509 

transfer instructions, 3, 22 

uses of, 21, 26— 27 
Zero page, special features, 6 
Zero page addressing modés 

direct, 7, 10— 11, 14 

indexed, 8, 11 —12 

instructions, 7 


If you want to use a specific assembly lan- 
guage routine, learn assembly language 
quickly, or improve your programming skills, 
6502 ASSEMBLY LANGUAGE SUBROU- 
TINES is for you. It provides code for more 
than 40 common 6502 subroutines, includ- 
ing code conversion, array manipulation, 
arithmetic, bit manipulation, string pro- 
cessing, input/output, and interrupts. lt 
describes general 6502 programming 
methods (including a quick summary for 
experienced programmers), and tells how 
to add instructions and addressing modes. 
It even discusses common 6502 assembly 
language programming errors. 


This book identifies strengths and weak- 
nesses of the 6502 instruction set, and 


zr 


allows you to make instant use of 6502 as- 
sembly language. You can use these sub- 
routines to 


e Run a specific routine. 

e Speed up a BASIC program. 

e Assist in programming an /О driver, a 
diagnostic, a utility, or a systems 
program. 

e Quickly learn 6502 assembly lan- 
guage programming (based on your 
knowledge of another micropro- 
cessor). 

e Improve your programming skills by 
seeing examples of working routines 
and the shortcuts used. 

e Debug, maintain, or revise an existing 
program. 
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